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COMMENT 
SE PRÉSENTE 
VOTRE ORDINATEUR ? 


Vous avez décidé de vous initier au langage BASIC, et pour cet apprentissage vous avez choisi 

l'ORIC-1. 

Vous êtes face à votre ordinateur, livre en main. 

L'écran : 

Il s’agit d’un écran bien familier, celui de votre téléviseur relié à l'ORIC-1 grâce à la prise 

péritélévision. 

C'est par l'intermédiaire de l'écran que l'ordinateur répond à vos questions. 

Mais comment questionner l'ordinateur ? 

L'ordinateur n'étant pas encore en mesure d’accepter les ordres vocaux, vous devez utiliser un 

autre intermédiaire, le clavier. 

1 e <RETURN > 

Le clavier , pour valider 
une ligne 
frappée 


? @ # $ % \ & + { ) 4 + ' 
1 2 3 4 5 6 u G] E] 0 = = a 
P [ syhise DEL 


LL LE 


(ALIS RETURN 


0 0 0 0 Se 


LILAS 


CLLLLLLLLL LL 


ÉCTTAL 


2 ES 





<CTRLC> 

pour stopper le <SHIFT> 

déroulement d'un espace pour obtenir les caractères du 
programme. haut des touches à double caractère. 


Comme vous le constatez, il ressemble fort à celui d’une machine à écrire, lettres, chiffres, 
signes de ponctuation, symboles mathématiques, barre d’espacement, tout est là. 


Cependant, par rapport à un clavier classique vous observez certaines différences : 

— La première, la plus frappante, c’est la disposition des lettres. L'ORIC-1 est en effet doté 
d'un clavier QWERTY, comme tous les claviers fabriqués outre-Manche. 

— La seconde est un ensemble de touches inhabituelles : 

DEL sert à effacer un caractère erroné 

<— sert à déplacer le curseur vers la gauche de l'écran 


ORIC POUR TOUS 7 


— sert à déplacer le curseur vers la droite de l'écran 
f sert à déplacer le curseur vers le haut de l’écran 
V sert à déplacer le curseur vers le bas de l'écran 


C’est donc grâce à ce clavier que vous allez pouvoir communiquer, DIALOGUER, avec 
l'ordinateur. 


Pour vous familiariser avec ce nouveau mode de communication, tapez (doucement!) sur 
toutes les touches sans appréhension. Vous ne risquez rien... l'ordinateur non plus. 


Tandis que vous vous familiarisiez avec le clavier, vous avez découvert certaines touches 
encore inconnues. 


RETURN : 


C'est à l’aide de cette touche que vous ‘validez’ le message que vous voulez envoyer à 
l'ordinateur. Tant que vous n'avez pas appuyé sur cette touche, vous pouvez effacer les 
caractères frappés avec la touche DEL. 


Appuyer sur la touche <RETURN=> pour valider la frappe d’une instruction ou d’une 
commande doit donc devenir un réflexe. 


Si vous l’oubliez, l'ordinateur restera sourd... à toutes vos imprécations! 










L'ordinateur est sous Basic. 





Il attend vos commandes ou instructions 








Ne pas confondre la lettre O 
et le chiffre 0. 


Touche 
< RETURN > 








PRINT 1057 





15 


Ce que vous frappez (1) 


[Réponse de ordinateur | 








Remarque : Le message READY qui indique que vous êtes sous BASIC sur TRS-80 devient 
OK sur d’autres machines. 


(1) Nous avons choisi de SOULIGNER FICTIVEMENT sur les représentations d'écran ce que vous frappez pour le différencier 
visuellement des réponses de l'ordinateur 
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DEL : 


Cette touche vous permet, tant que vous n'avez pas appuyé sur <RETURN>, d'effacer le 
dernier caractère frappé. 

Le curseur se déplace alors de droite à gauche en effaçant le dernier caractère, l’avant-dernier 
et ainsi de suite au fur et à mesure de sa progression vers la gauche. 


Vous avez compris l’utilité de cette touche que vous utiliserez pour corriger vos fautes de 
frappe, si toutefois vous vous en êtes aperçu AVANT d’avoir validé votre ligne par ?.. 
<RETURN>. 

Sinon, patience, nous vous expliquerons un peu plus tard comment modifier une ligne déjà 
créée (voir annexe). 


SHIFT : 


Vous utilisez cette touche pour frapper le caractère supérieur des touches à double caractère. 


sur | 


Pour frapper le caractère #. 


Par exemple : 


ATTENTION, à la différence des machines à écrire, la touche SHIFT ne reste pas enfoncée 
tandis que vous frappez le caractère désiré. Vous devez d'ABORD appuyer sur la touche 
SHIFT puis appuyer sur le caractère désiré TOUT EN MAINTENANT LA TOUCHE SHIFT. 








En bref 


e LE CLAVIER vous permet de DIALOGUER avec l'ordinateur. 








e L'ECRAN vous donne la possibilité de VISUALISER cette ‘conversa- 
tion’ qui s'établit entre vous et la machine. 


e La touche retour chariot, RETURN, VALIDE la frappe de l'information 
transmise à l'ordinateur. 


e La touche DELdéplace le curseur en arrière en effaçant les signes sur son 
passage. 


e La touche SHIFT est utilisée pour frapper le caractère du haut des 
touches à double caractère. 
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LE MODE IMMÉDIAT 
(Appelé aussi 
MODE DIRECT) 


Pour dialoguer avec l'ordinateur, il ne suffit malheureusement pas de bien connaître son 
clavier, il faut également parler sa langue, le BASIC. Ne commencez pas à vous inquiéter; vous 
verrez comme c’est simple! 

Un bref apprentissage vous suffira pour devenir parfaitement bilingue. 


Ceci dit, pour initier la conversation, il vous suffit de frapper une instruction que vous 
n'omettrez pas de valider par <RETURN>. L'ordinateur vous répond alors IMMEDIATE- 


MENT. 


Commençons : 

Version Anglaise Version Française 

— Vous: PRINT 10 + 5 — Vous: ECRIS 10 + 5 
— Lui: 15 — Lui: 15 


PRET 


READY 


PRINT 10+5-, 


ECRIS 1045 


4 


15 





Regardons de plus près l'écran version B A S I € 


(pour débutants)  Beginner's 

(tous usages) All-purpose 
Symbolic 
Instruction 
Code 


[ 
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Comme pour toutes les langues, il existe en BASIC une SYNTAXE que vous devez respecter. 
Dans le cas contraire, l'ordinateur ne comprend pas le message que vous lui transmettez. Il 
vous le signale alors en affichant le message SYNTAX ERROR (erreur de syntaxe) et attend 
que vous frappiez de nouveau, sans faute, votre instruction. 






Vous avez fait 
une faute de frappe. 


j 


PRUNT 1045 
F 





SYNTAX ERROR 


Imaginons que vous vous soyez aperçu de cette impardonnable (nous parlons au nom de la 
machine!) faute de frappe avant d’avoir appuyé sur la touche <RETURN3. 


Qu'auriez-vous pu faire pour remédier à cet oubli ? 

Comme vous l’aurez remarqué, l'ordinateur se contente de vous donner une réponse sans faire 
de discours. 

C’est à vous que revient le soin d'améliorer la présentation de sa réponse. 


Pour ce faire, il vous suffit d'écrire un MESSAGE placé ENTRE GUILLEMETS. 










Message pour 
faire joli : 

il est envoyé tel quel 
par Basic 





À 


PRINT "10 + 5 FONT :" 








;10+ 





z » Résultat de 
10 PLUS 5 FONT : 15 


READY 


ATTENTION AUX GUILLEMETS ! 


Ce sont les quillemets qui préviennent l’ordinateur qu'il s’agit là d’un message. 
Ce message est parfaitement arbitraire. Vous auriez pu tout aussi bien frapper : 


PRINT "10 - 5 =";10+5 
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L'ordinateur mémorise le message placé entre quillemets et l'affiche textuellement. 


L'ordinateur affiche 
le message. 







Calcul 
de10 +5 


D 


PRINT "10 - 5 =";10+5 





Ceci vous permet de constater sa fidélité, certes! mais aussi son manque ‘d'intelligence’. 








En bref 


e Le mode IMMEDIAT (ou DIRECT) vous permet de connaître 
‘immédiatement’ l'effet d’une instruction. 





e L'instruction PRINT (ECRIS) est employée pour afficher à l'écran. 

e Le message SYNTAX ERROR indique que l'ordinateur n’a pas compris 
ce que vous lui demandiez. Impuissant, il vous demande de bien vouloir 
frapper à nouveau l'instruction sans vous tromper dans la formulation. 

e Les GUILLEMETS «...» indiquent à la machine qu'elle doit SEULE- 
MENT reproduire le message qu'ils encadrent. 
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MÉMORISATION 
DES VALEURS : 
VARIABLES 


L'instruction PRINT, pour importante qu’elle soit, n’est cependant guère révélatrice des 
possibilités de la machine. 


L'instruction LET variable — valeur : 


Cette instruction permet de conserver en ‘mémoire’ des valeurs qui seront ensuite 
utilisées (pour des calculs par exemple). 


Pour schématiser la notion de variable, comparons-la à une case (c’est d’ailleurs ainsi que nous 
la symboliserons) à l’intérieur de laquelle nous rangeons une valeur. Puis donnons lui un NOM 
afin de l'IDENTIFIER. 

Ainsi pour AFFECTER (donner) la valeur 25 à une variable que nous appelons ‘PRIX’, nous 
écrivons : 


LET PRIX=25 


BASIC range alors la valeur 25 dans une case PRIX. ” 


LET PRIX = 25 


4 


L'ordinateur se souvient de la valeur de PRIX. Pour afficher cette valeur, il suffit de frapper 
PRINT PRIX. 









READY 


L'ordinateur range 


la valeur 25 dans 
la variable PRIX. 





LET PRIX=25 — 
# 


READY 





PRINT PRIX 
L'ordinateur 7 


se souvient de 


la valeur des PRIX 
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Le nom donné à la variable, ici PRIX, est arbitraire, pour le vérifier, faites : 


LET PX=25—> 


READY 
PRINT PX= 


25 





Il est cependant important que le nom variable choisi soit le plus mnémonique possible. 


Calculons maintenant le total d'un produit de 25 Francs pour une quantité de 3. 
Pour ce faire, nous utilisons 2 variables (2 cases). 





variable variable 
PRIX QUANTITE 







READY 


LET PRIX=25 










PRINT PRIXX*QUANTITE Ne pas confondre 
le symbole de multiplication 


et la lettre X 












Réponse de 
l'ordinateur. 


Les noms de variable ‘PRIX’ et QUANTITE’ pourraient être remplacés par ‘PX’ et ‘QT 


, 


LET PX=25 > 


LET QT=3 > 


PRINT PX4QT 


75 
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Nous obtüendrions le même résultat en écrivant : 


LET PX=25 
LET QT=3 
LET T=PXx%QT 
PRINT T 


75 


Voyons maintenant comment changer la valeur de la variable QT. Pour lui donner la valeur 5, il 
suffit de faire : 


LET QT=5 > 


(la variable PX, elle, conserve son ancienne valeur) 


On affecte une 








nouvelle valeur 


LET QT=5 + a QT. 








* 
PRINT PX A 


125 


Naturellement, l'ordinateur ‘oublie’ l’ancienne valeur (3) de QT. 


Imaginons maintenant que le prix augmente de 5 Francs. Nous pourrions bien sûr faire : 


LET PX = 30 
le prix de 5. 


Mais nous pouvons également faire : 








LET PX=PX+5> 





LET QT=5 2 
PRINT PXkQT 7 


150 


LET PX = PX + 5 ne doit pas être compris comme une égalité algébrique. L'ordinateur 
interprète cette insertion ainsi : 
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O n prend le contenu de la case PX 








25 
(@) Lui ajoute 5 ee 
(©) Range le total dans la case PX. | 
Exemples : 
Calculons une date de naissance en fonction de l’âge : 
= AGE 
LET AGE 20 
LET ANAIS=1983-AGE (re 
PRINT ‘Date de naissance :";ANAIS > 
Sy 
Date de naissance: 1963 








1963 


Calculons maintenant le total de dépenses (P1, P2, P3) et la somme qu'il reste : 





LET BUDG=100- BUDG 

LET 15153 100 

LET P2=8—— 

EE, MO E 
LET DP= LET DP=P1+P2+P3 





PRINT "Total depenses:";DP> 


Total depenses: 58 


LET RESTE=BUDG-DP er 


PRINT "Il vous reste:'"";RESTE 








IL vous reste: 42 
Pour vérifier les valeurs de P1, P2, P3, nous frappons : 


PRINT p1,P2,P3—> 


15 8 25 
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Si nous avons commis une erreur sur le prix de P2, il suffit de faire : 


p2=1 
LET P2=18— 
LET DP=P1+P2+P3—> 


“ .!t. 
PRINT "Total depenses: DP—> 





Total depenses: 68 


Pour affecter une valeur à une variable, nous avons utilisé l'instruction LET. 
Aujourd’hui, pour la plupart des BASICS, elle n’est plus obligatoire. 


Il n'y a plus 
LET. 









037 






PRINT PXXQT—Z 










Le résultat est 
le même 
qu'avec LET. 


75 






Pour afficher sur la même ligne le PRIX, la quantité et PRIX*QUANTITE, nous 
séparons les variables par des virgules. 


PRINT PX,QT,PX4QT 


25 3 


À 





Les résultats sont affichés en colonnes 1, 16 et 31 (de 15 en 15). 
Le point virgule empêche le saut de ligne mais ne cadre pas les résultats qui sont 
édités les uns à la suite des autres, séparés par un espace. 


PRINT PX;QT:QTxPX 


25 3 75 
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Remarques sur les noms de variables : 


Le premier caractère doit obligatoirement être une lettre. Les autres caractères peuvent être 
indifféremment des lettres ou des chiffres. 


A2 est bon 
2A est interdit 


Sur ORIC-1 seuls les deux premiers caractères sont pris en considération. 


PRIXE4O 
PRINT PR | PHIXetPR. 


c'est la même chose 





40 
PR=50 vd 


PRINT PRIX 
RIN 


59 


Pour BASIC, PRIX et PR sont une seule et ; ême variable. 


ATTENTION! ORIC 1 n'accepte pas de noms de variables comportant un mot clef du BASIC 
(voir annexe). ‘ 


Par exemple TOTAL est interdit car TO est un mot clef du BASIC. En revanche TTAL est 
autorisé. 








En bref 


e Une VARIABLE est une ‘case’ identifiable par un nom mnémonique, 
dans laquelle on range une valeur quelconque. 





e L'instruction LET permet d'affecter une valeur à une variable. 
e On peut ajouter une valeur à une variable X en faisant : 
LET X = X + valeur (ou X = X + valeur) 
e La VIRGULE permet d'afficher les résultats en colonnes 1, 16, 31.. 
e Le POINT VIRGULE ne cadre pas les résultats. 
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MÉMORISATION 
DES INSTRUCTIONS : 
PROGRAMME 


Plutôt que de frapper plusieurs fois la même suite d'instructions, nous pouvons la mémoriser. 
Pour mémoriser une suite d'instructions, nous les frappons en leur assignant un 


NUMERO de LIGNE (10, 20, 30,...) 
Cette suite d'instructions s’appelle un PROGRAMME. 


L'ensemble des 
lignes 10, 20 et 30 







constitue 
un programme 





10 PX=25 > 





20 AT=6 > 
Il n'y a pas 
de résultat 


Nous constatons qu’il n’y a pas de résultat. Pour obtenir un résultat, il faut demander 
l'EXECUTION du PROGRAMME par l’ordre RUN. 


30 PRINT PX#QT-— 








F il faut 


RUN Pour obtenir le résultat, 
150 frapper < RUN > 


RUN 


= 
# | 2 exécution 


150 


BASIC exécute les instructions une à une dans l’ordre de la numérotation. L’exécution du 
programme peut être demandée plusieurs fois. 


Remarque : Les lignes n'ont pas à être entrées nécessairement dans l’ordre de la 
numérotation. 
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Modification d’une ligne : 


Le plus simple est de la frapper à nouveau : 


30 PRINT PX,QT,PXxQT r. 

—— rt 7 On a réécrit 
brie la ligne 30 

LI ST (l'ancienne a disparu) 





10 PX=25 
20 AT=6 
30 PRINT PX,QT,PXxQT 


RUN => 
25 6 150 


Ajout d’une ligne : 


L'usage veut que la numérotation se fasse de 10 en 10. Pour ‘insérer’ une nouvelle ligne en 25 


par exemple, il suffit de faire : 
Pour obtenir les caractères 
minuscules, taper <CTRLT> 





25 PRINT "Prix:"7PX;"Quantite:";QT > 


la ligne 25 
10 PX=25 
20 QT=6 


25 PRINT "Prix:"";:PX;"Quantite:'";:QT en 
30 PRINT PX,QT,PX4QT . 





taper de nouveau 
<CTRLT> 





Prix:25 Quantite:6 
25 6 150 


Liste d’un programme : 


La commande LIST permet de lister le programme (ou une partie du programme) en mémoire 


à chaque fois que nous le voulons. 


LIST 10  — liste la ligne 10 


LIST — 30 > liste de la ligne 10 à 30 
LIST 20 — — liste de la ligne 20 à la fin 
LIST 20-40 > liste de la ligne 20 à la ligne 40 
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Suppression d’une ligne : 


En frappant le numéro de ligne suivi de <RETURN>, la ligne est effacée. 


Suppression de 
la ligne 25 










257 


LIST—, 





10 PX=25 
20 QT=6 
30 PRINT PX,QT,QTxPX 


À l'issue de l'exécution du programme (après le RUN), les variables PX et QT ont conservé 
leurs valeurs. On peut s’en assurer en frappant en mode immédiat (c’est-à-dire sans numéro de 
ligne) : PRINT PX, QT. 


RUN 7 


En mode 25 à 159 
immédiat. 
Put PLAT 


25 6 


Pour connaître l'effet d’une instruction, il peut être plus rapide de frapper celle-ci en mode 
immédiat plutôt que de consulter un manuel. 

De même, lors de la mise au point, le mode immédiat est très utile. 

Aussi est-il essentiel d'acquérir le réflexe ‘mode immédiat’. 





En bref 


e Un PROGRAMME est une suite d'instructions numérotées. 








e La numérotation des lignes se fait généralement de 10 en 10 afin de 
permettre l'insertion de nouvelles lignes. 


e La commande RUN lance l'exécution d’un programme. 


e La commande LIST affiche à l'écran le programme présent en mémoire. 
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POUR ENTRER DES VALEURS 
PENDANT L'EXECUTION : 
INPUT «Message ? »; variable 


9 


L’instruction INPUT (ENTRER) permet de fournir des valeurs au programme 
PENDANT son EXECUTION par l’'INTERMEDIAIRE du CLAVIER. 


Lorsque BASIC rencontre une instruction INPUT pendant l'exécution du programme, il affiche 
à l'écran le message qui figure dans l'instruction INPUT (Prix ? sur l'exemple) puis ATTEND 
que l'opérateur ENTRE au clavier la valeur de la variable spécifiée dans cette instruction INPUT 
(PX sur l'exemple). 


Lorsque l'opérateur a entré la valeur suivie de <RETURN>, l'exécution du programme se 
poursuit à la ligne suivante. 


Ok 


Pour effacer 

 - Introduction du 

: rogramme. 
10 INPUT "Prix? ";PX ge" | 270 


20 INPUT ‘'Quantite? A QT 
30 PRINT "Total :";PXxQT. > 











RUN 





si RE ten 
: Basic attend que 
Prix? 07 vous entriez 
l'instruction 10.| #7 Quantite? 4 la valeur de PX 
(instruction 10) 
Total: 40 
—> RUN = 
FE 
Prix? 225 


Quantite? 3 3 


Total :66 


Remarques : © A l'exécution, ORIC-1 place automatiquement un point d'interrogation 
après le message. Cependant, pour une meilleure lisibilité des programmes, 
nous avons volontairement ajouté ? dans le message. Naturellement, il n’est 
pas obligatoire. 


e La commande NEW permet d'effacer l’ancien programme en mémoire. 
(Sur cet exemple, les nouvelles lignes effaceraient les anciennes). 


L'instruction INPUT est très pratique puisqu'elle permet d’exécuter le programme pour 
différentes valeurs sans qu'il soit nécessaire de modifier le programme lui-même. 
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Exemple : 
Calculons la consommation d’un véhicule. 
10 INPUT ‘Combien de Litres? ";L 
20 INPUT ‘Combien de Km ? ‘’;KM 
30 : 
40 C=CL/KM)x100 
69 PRINT “Consommation aux 100 km:"'";C 
70 : 
80 GOTO 10 


RUN 


Combien de Litres? ET sd 
Combien de Km 2 52 4 


Consommation aux 100 km: 7.6 


Remarque : Sur ORIC-1, lors de l'exécution d’une instruction INPUT, l'opérateur doit 
nécessairement entrer une valeur. 
Appuyer sur <RETURN> ne suffit pas pour entrer une valeur nulle. 


19 INPUT"PRIX?";PX 


F <RETURN> ne 
BASIC pose PRIX ? suffit pas 
de nouveau Ve 





la question 





à PRIX 7 @ 


7 4 


RUN initialise les variables à 0. 


NEW 

10 PRINT PX,QT. Les valeurs de 

Rte PX et QT 
sont nulles. 

RUN => 





0 PROS 
En bref 


e L'instruction INPUT permet d'introduire les valeurs des variables 
seulement au MOMENT de l'EXECUTION du PROGRAMME. 








e La commande NEW efface le programme en mémoire. 
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BOUCLE : 
GOTO no de ligne 


L’instruction ‘GOTO no ligne’ permet d’exécuter plusieurs fois une même suite 
d'instructions. 


Montrons sur un exemple simple (sans utilité pratique) le mécanisme de GOTO: 


NEW 


19 PRINT ‘Je boucle indefiniment" 
20 GOTO 10 


RUN 


L'instruction 10 Je boucle indefiniment 
est exécutée Je boucle indefiniment 
indéfiniment. |——æ. Je boucle indefiniment 





BASIC exécute l'instruction 10 une première fois puis passe à l'exécution de l'instruction 20. 
Cette instruction ‘20 GOTO 10 signifie ‘ALLER EN 10’. L’instruction 10 est donc exécutée à 
nouveau. 


Naturellement, ce programme ne s'arrête jamais. sauf si vous appuvez sur la touche CTRL 
puis, tout en maintenant celle-ci, sur la touche C 


Je boucle indefiniment 






BREAK IN(10) #77 | Appuyezsur 
L'exécution 
est stoppée. READY À 


Utilisons cette instruction GOTO dans un contexte plus proche de la réalité. 
Supposons que nous devions faire plusieurs fois la somme de 2 nombres. 


< CtriC > 


40 INPUT ‘Premier nombre? "';N1 
O0 INPUT ‘'Deuxieme nombre?'"";:N2 
30 PRINT ‘'Somme:'';N1+N2 

40 PRINT ‘Produit :'"";N1x*N2 

50 GOTO 10 


RUN > 


Premier nombre? 5. 
Deuxieme nombre?_3- 
Somme : 8 # 
Produit :15 
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Premier nombre? 8 
A Deux ieme nombre? _3=> 


On est revenu .1 
à l'instruction 10. Somme : 1 
Produit :24 


Premier nombre? 


Appuyer sur 
BREAK AT 10 er, 





< CtrlC > 


Exemple : 


10 INPUT ‘Quel age avez vous? "':AGE 
20 ANAIS=1983-AGE 

30 PRINT ‘Vous etes ne en:'";ANAIS 
40 GOTO 10 

RUN 

Ne 


Quel age avez vous? 20-7 
Vous etes ne en: 1963 


Quel age avez vous? 


Pour provoquer un saut de ligne avant d'afficher «vous êtes né en : », ajouter l'instruction : 


25 PRINT 
Provoque un 
saut de ligne. 


Remarque : Vous pouvez également taper 25 ? 


À l'exécution le ? est remplacé par l'instruction PRINT 


Instruction REM 


Il ne s’agit pas d’une instruction à proprement parler puisqu'elle n’a pas d'influence sur le 
déroulement du programme. 


Elle permet d'introduire des remarques dans le programme et d'améliorer sa 
présentation. (REM vient de REMark). 








Tout ce qui suit 
REM est du commentaire. 





sil 


5 REM ---- Somme et produit de 2 nombres -- 
10 INPUT ‘Premier nombre? ‘';N1 
20 INPUT ‘'Deuxieme nombre? "';N2 


ORIC POUR TOUS | 25 


25 REM -- 
30 PRINT ‘'Somme:''>N1+N2 


Pour séparer 40 PRINT ‘Produit :''";N1xN2 
2 phases 
du programme 
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En bref 





e L'instruction GOTO no ligne (ALLER EN no ligne) provoque la 
poursuite de l'exécution du programme à la ligne spécifiée. 


e REM permet d'introduire des commentaires dans le programme. Elle est 
ignorée à l'exécution. 


e Afin de clarifier la lecture d’un programme, il est souhaitable d’y insérer 
des commentaires à l’aide de REM (ou !). 


e <BREAK> ou <Ctrl C> permet de STOPPER l'exécution du 
programme. 


e <CTRLC> permet de stopper l'exécution d’un programme 
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TESTS: 
IF condition THEN instruction 
(SI condition ALORS instruction) 


L'instruction IF... THEN... permet de tester si une condition est vraie et d'exécuter 
une ou plusieurs instructions si la condition est vraie. 


10 INPUT ‘Donnez moi un nombre? ";N1 
20 IF (N1>10) THEN PRINT "Vous avez frappe un nombre superieur a 10", 


30 PRINT "Suite" 
40 GOTO 10 Ne 


RUN 








# Cette instruction 
: n'est exécutée que 
Donnez moi un nombre? 15-23 si NI est 
Vous avez frappe un nombre superieur à 10 | plus grand que 10 
Suite 


Donnez moi un nombre? 8 
Suite 


L’instruction 20 signifie : 


20 SI N1 est superieur a 10 ALORS ecris ‘Vous avez frappe un ....... 
! [ 


IF THEN 


VRAI 
THEN. 


FAUX 


Que l'instruction après THEN soit exécutée ou non, le programme se poursuit après 
l'instruction qui suit IF... THEN... 


C’est dans cette instruction (ainsi que GOTO) que réside toute la puissance de l’ordinateur 
puisqu'elle rend possible l'exécution de séquences d'instructions seulement dans certains cas. 
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Remarque : Pour exécuter plusieurs instructions, il suffit de les séparer par le caractère : (deux 


points). 
| 3 instructions 


20If(NI > 10) THEN PRINT : PRINT «vous avez... » : PRINT 
— 








Provoque un saut 
de ligne 


avant l'affichage 
du message. 





Les différents opérateurs de comparaison sont : 
— égalité > supérieur à > supérieur ou égal à 
< inférieur à <> différent de € inférieur ou égal à 


Sortie de boucle : 
L’'instruction IF... THEN permet de «sortir» d’une boucle. 





Le programme ci-dessous effectue la totalisation d’achats. 
10 T=0 


20 INPUT "Quantite? ";QT 
30 IF QT=0 THEN GOTO 100 


40 INPUT "Prix? ";PX 
50 T=T+QTxPX 

60 GOTO 20 

ne ee 


110 END 
100 


RUN 





Quantite? 32 
Prix? 5037 


Quantite? 12 
Quantite? Oz 
Total: 162 


Lorsque tous les achats ont été totalisés, nous entrons 0 en réponse à la question ‘Quantité ?’ 


Le test de la valeur O0 en 30 permet de ‘sortir de la boucle pour afficher le total. 


Sortie de boucle à l’aide d’un compteur 


Une autre façon pour sortir d’une boucle consiste à compter le nombre de passages dans la 
boucle à l’aide d’une variable (COMPTEUR sur l'exemple). Un test de la valeur de 
COMPTEUR permet de sortir de la boucle. 
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10 CONPTEUR=0 











20 T=0 ie” né ne 
30 : 

40 INPUT ‘Nombre? ">X 

50 T=T+X 


60 COMPTEUR=COMPTEUR+1 
70 IF COMPTEUR=10 THEN 100 


X «— ENTRER UN 
NOMBRE 





80 GOTO 40 

D 
100 PRINT ‘"'TOTAL:'">T 
RUN =, 
Nombre? 12- 
Nombre? 7 cd 10 fois 


Nombre? 132; COMPTE < COMPTEUR + 1 


Nombre? 15% 


TOTAL:142 


AFFICHER 
TOTAL T 


Si le nombre de valeurs à ajouter n’est pas connu à l'avance il suffit de faire : 


5 INPUT ‘'Combien de nombres? "';NB 


70 IF COMPTEUR=NB THEN 110 


RUN => 


Combien de nombres? 47 
Nombre? 12-35 
Nombre? 6 

Le : 
Nombre? 8 > Ji 
Nombre? 13-37 


TOTAL: 39 


Test de conditions multiples : 


Des conditions multiples peuvent être testées avec les OPERATEURS LOGIQUES 
AND et OR. 


condition 1 AND condition 2: Les instructions après THEN ne sont exécutées que si 
condition 1 ET condition 2 sont vraies. 
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10 INPUT ‘Donnez un nombre? ‘';N 

20 IF (N>0) AND (N<10) THEN PRINT ‘'Ce nombre est superieur a O0 ET 
inferieur a 10" 

30 GOTO 10 


RUN 

Donnez un nombre? 5 

Ce nombre est superieur a O0 ET inferieur a 10 
Donnez un nombre? 13. 

Donnez un nombre? 


condition 1 OR condition 2 : Les instructions après THEN sont exécutées si condition 1 OÙ 
condition 2 est vraie (ou les deux). 


10 INPUT ‘'Donnez 2 nombres X,Y ? "':X,Y 
20 IF CX>0) OR (Y>0) THEN PRINT ‘"'X OU Y est positif (ou Les deux)" 
30 GOTO 10 


RUN 


Donnez 2 nombres X,Y? 12,4 
X OÙ YŸ est positif (ou Les deux) 


Donnez 2 nombres X,Y? -4,-12- 


IF condition THEN instructions ELSE instructions 


IF... 


est 


30 


THEN... ELSE... permet d’exécuter des instructions si la condition testée 
fausse 


10 INPUT ‘Quel est votre age? "'>AGE 
20 IF AGE=>18 THEN PRINT ‘Vous etes majeur", ELSE PRINT "Vous etes mineur’, 
30 PRINT "suite" 


40 GOTO 10 Instruction exécutée si Instruction exécutée si 
la condition testée est fausse 








la condition testée est vraie 


RUN 


Quel est votre age? 25% 
Vous etes majeur 
suite 


Quel est votre age? 17 


Vous etes mineur 
suite 
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BOUCLE AUTOMATIQUE : 
FOR: NEXT 


Soit à afficher les nombres 1, 2, 3 et leurs carrés 1*1, 2*2, 3*3. 


1'° solution : (sans GOTO et IF... THEN) 


10 N1=1 

20 PRINT N1,N14N1 
30 N1=N1+1 

40 PRINT N1,N12N1 
50 N1=N1+1 


60 PRINT N1,N1xN1 - 


SAS 


RU X 2 


ES 


; 
2 4 Ni 
3 





Xx3 


Pour calculer les carrés des nombres de 1 à 100, cette méthode serait fastidieuse. 


2° solution : (avec GOTO et IF... THEN...) 


Aussi, plutôt que d'écrire plusieurs fois la séquence : 

N1 = N1 +1 

PRINT N1, NI*NI1 

écrivons-la une seule fois. 

Pour l’exécuter plusieurs fois, nous utilisons une instruction de branchement GOTO. et pour 
‘sortir de la boucle, nous testons la valeur de N1. Dès que N1 devient supérieur à 3, nous 
stoppons le programme. 


10 N1=1 
20 : 


30 PRINT N1,N1xN1 es 
On passe Ë N1=N1+1 


3 fois dans | -w | 50 1F N1>3 THEN GOTO 100 
la boucle 60 GOTO 30 


70 : \ 


100 END 


Sortie de 
RUN la boucle 
—# NON À OUI 


5 9 Lan] 100 








ea 
© 
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Pour obtenir la liste des carrés des nombres de 1 à 100, il suffit de changer l'instruction 50 : 


50 IF N1=100 THEN GOTO 100 


Pour bien voir comment se ‘déroule’ le programme, utilisons l'instruction ‘TRON’ (TRACE 
ON). Les numéros des instructions exécutées sont alors visualisées. 


5 _TRON FRONe 


N° des instructions 
RUN exécutées 


ee <20> <30> 1 
<40> <50> <30> 2 
<40> <50> <30> 3 , 
<k0> <50> <100> 


LL Sortie de 
la boucle 
5 
F <— l Pour supprimer 
RUN l'instruction TRON. 


A 


UN D — 
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3° solution : (boucle automatique FOR... NEXT...) 


Simplifions l'écriture du programme précédent avec une boucle ‘automatique’, la boucle 


FOR... NEXT. 
ÉA 
compteur sl 
pen sl 
10 FOR N1=1 TO 3 ! 10 POUR N1=1 JUSQU'A 3 


PRINT N1, dl | 20 ECRIS N1,N1#N1 


7 NEXT N1 ! 30 ENCORE N1 
Boucle 
automatique RUN— 


Cette instruction 








1 est exécutée 3 fois : 
L 4 Incrémente N1 pour N1 = 1 ni 
3 9 de 1 puis pour NI =2 


renvoie à l'instruction 


après FOR Le Am 





Comment se déroule ce programme ? 


— L'instruction 10 stocke en mémoire la ‘valeur limite’ 3 et donne à la ‘variable compteur N1 
la valeur 1 


— L'instruction 20 est exécutée avec N1 = 1 


— L'instruction ‘30 NEXT N1’ augmente N1 de 1 et teste si N1 est INFERIEUR ou EGAL à la 


‘valeur limite’ 3. 
Si N1 est inférieur ou égal à 3, l'instruction après FOR (20) est à nouveau exécutée avec 


N1 =2 


Ainsi, l'instruction 20 est exécutée 3 fois avec N1 = 1, 2, 3. 


Exemples : 
Pour afficher 5 lignes d'étoiles : 


10 FOR N=1 TO 5 
20 PRINT "xxkkkkkkkx! 


30 NEXT N 
RUN 


RRRRRRRRR RÉ 
RRRRARRARR RÉ 
Lisiiiissss: 
Lisiiiiisss) 
Liiiiiiisi ss: 
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Pour afficher les carrés des nombres de 4 à 6: 


10 FOR N1=4 TO 6 

20 PRINT N1,N1xN1 

30 NEXT N1 

40 PRINT "La boucle est terminee" 


RUN 


& 16 
9 25 
6 36 
La boucle est terminee 


5 TRON > 
RUN 


<10> <20> 4 16 
0> <20> 5 25 
<30> <20> 6 36 
<30> <40> La boucle est terminee 
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Syntaxe complète de la boucle FOR : 
Un pas d'exécution peut être spécifié par STEP : 





La spécification ‘STEP pas’ indique qu’il faut faire 
progresser le compteur de ‘pas’ à chaque 
exécution de la boucle. STOCKAGE DE VALEUR FIN 


COMPTEUR «<— VALEUR DÉBUT 


Si l'on omet la spécification STEP, le compteur 
progresse, par défaut, de 1 à chaque passage. 
Ne pas spécifier le ‘pas’ ou lui donner une 
valeur égale à 1 est donc identique. 








EXÉCUTION DES INSTRUCTIONS 
ENTRE FOR et NEXT 





COMPTEUR +<— COMPTEUR + PAS 






COMPTEUR 
> 
VALEUR FIN 
FOR compteur = valeur début TO valeur fin STEP pas 
instruction 1 
instruction 2 


NEXT compteur 
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Lorsque l'instruction FOR est exécutée, BASIC affecte à la ‘variable compteur la ‘valeur début’ 

spécifiée et stocke la ‘valeur limite’ indiquée. 

Toutes les instructions entre FOR et NEXT sont d’abord exécutées avec compteur = valeur 

début. 

L'exécution de l'instruction NEXT augmente la valeur de ‘compteur’ de ‘pas’ 

e Si la valeur de ‘compteur’ est inférieure à la ‘valeur limite’, les instructions entre FOR et 
NEXT sont à nouveau exécutées avec la nouvelle valeur de ‘compteur. 

e Si la valeur de ‘compteur’ a atteint la ‘valeur fin’, l'exécution de la boucle s'achève et le 
programme se poursuit après l'instruction NEXT. 


Exemples : 
STEP positif : 


10 FOR C=1 TO 5 STEP 2 
20 PRINT C; 

30 NEXT C 

4O PRINT "C'est fini" 


RUN 


1 3 5 C'est fini 


Table des sinus : 


10 FOR ANG=9 TO 3.14 STEP 3.14/10 
20 PRINT ANG,SIN (ANG) 
30 NEXT ANG 


RUN 


0 0 

-.314 .308866 
.628 .587528 
.942  .808736 


STEP négatif : 


10 FOR C=3 TO 1 STEP-1 
20 PRINT C; 

30 NEXT C 

RUN 

3.2: 


Une boucle FOR est exécutée au moins une fois, même si ‘valeur limite’ est inférieure à ‘valeur 


début’. 


10 D=3:F=1 

20 : 

30 FOR C=D TO F La boucle 
4O PRINT C ne devrait pas 
50 NEXT C être exécutée 


RUN 


3 
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Il faut donc prévoir un test. 


35 IF C>F THEN 50 


Erreurs : 

10 FOR I1=1 TO 5 

20 PRINT I 

30 NEXT J 

dd Erreur! 

RUN Remplacer J par I 

1 

NEXT WHITOUT FOR IN 30 
Exemple : 


Table de multiplication par 8 : 


Cette boucle FOR affiche la table de multiplication par &. 


30 FOR N1=1 TO 10 
40 PRINT N1;"X";8;"=";N1x8 


50 NEXT N1 
RUN 
1X8-=8 
2 X 8 = 16 
3 X 8 = 24 
10X 8 = 80 


Sans boucle,il faudrait ecrire: 


10 PRINT 1;"x";8;"=";1%8 
20 PRINT 2;"*x";8;"=";2%8 
30 PRINT 3;"*x";:8;"=";3%8 





40 ssscncuou ee 
90 PRINT 9;"x':8; :9*%8 
100 PRINT 10; "#x":8;"="";10%8 





Ce qui serait, vous en conviendrez, par trop fastidieux ! 
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Pour généraliser ce programme à toutes les tables de multiplication : 


10 INPUT ‘Quelle table? "ST 
20 : 

30 FOR N1=1 TO 10 

40 PRINT N15"X"S TS "=" NTaT 
50 NEXT N1 

60 GoTo 10 


RUN 
ms 


Quelle table? 7 


X 9 
X 9 


1 9 
2 18 
Boucles emboîtées 


Plusieurs boucles FOR peuvent être emboîtées. 
Le programme ci-dessous affiche les tables de multiplication de 2 à 5. 
La boucle ‘interne’ est exécutée une première fois avec T = 2 puis avec T = 3 etc. 


DT = Fr 
10 FOR T=2 TO 5 
15 PRINT ‘Table de:'"";T jusqu'à 
20 FOR N1=1 TO 10 TU 
Ten Fe PRINT NS MX STE MEME NIET 
40 NEXT N1 
interne 


50 PRINT 
60 NEXT T 
RUN 
Provoque un 
Table de: 2 
1X2=2 
2X2=4 
3X2=6 
10 X 2 = 20 


Table de: 3 


D — 
x x 
LN (W 
Wu 
œ W 


ORIC POUR TOUS | 37 


Essayez ce programme en v insérant l'instruction TRON pour mieux comprendre son 


déroulement. 


Exemple : 


Voici une horloge qui affiche les heures, minutes et secondes : La temporisation en ligne 50 


doit être adaptée à votre ordinateur. 


10 FOR H=0 TO 23 
20 FOR M=0 TO 59 
30 FOR S=0 TO 59 


40 PRINT H;"h.";M;"m.";S;"s." 
50 FOR TP=1 TO 170:NEXT TP 
60 NEXT S 

70 NEXT M 

80 NEXT H 

RUN 

me 

0h. Om. Os. 

Oh. Om. 15. 

0h. Om. 25s. 


Vous pouvez obtenir l'affichage ‘direct’ en faisant : 


54 PLOT 14, 14,STR$CH)+"H" 
52 PLOT 15,14,STR$(M)+"M" 
54 PLOT 21,19,STR$(5)+"5S" 


(voir chapitre ‘Adressage direct écran) 
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:REM temporisation 


REPEAT... UNTIL 


Cette instruction permet d'exécuter des instructions jusqu’à ce qu’une condition soit vérifiée. 


14 REPEAT 

24 :PRINT "APPUYEZ SUR UNE TOUCHE" 
34 UNTIL KEY <»'"" 

LG : 

59 PRINT C'EST FINI 

RUN 


APPUYEZ SUR UNE TOUCHE 
APPUYEZ SUR UNE TOUCHE 


Dès que vous appuyez sur une touche du clavier, la boucle REPEAT... UNTIL s'arrête. 


ORIC POUR TOUS | 39 


LES CHAÎNES 
DE CARACTÈRES 


Il existe des variables du type ‘chaîne de caractères’. Elles sont distinguées des 
variables numériques par la présence du signe $ à la fin du nom des variables. 


Ces variables sont utilisées dans la plupart des applications (gestion, éducation, jeux). 


MT 
10 INPUT ‘Votre nom? '';NOMS$ NOM$ 
20 : 


O PRINT NOM$ [c[af[mfPfats] 
40 GOTO 30 
RUN 


Votre nom? CAMPAS 7 


CAMPAS Appuyer sur 
CAMPAS <CtrilC > 
CAMPAS pour stopper 





Pour empêcher le saut de ligne après l’édition du nom, il suffit d’ajouter un point 
virgule après NOM. 


30 PRINT NOM$; => 





RUN 


CAMPASCAMPASCAMPAS 


L'affectation de la valeur ‘CAMPAS’ à NOM$ nécessite la présence de guillemets. Autrement 
‘CAMPAS" serait considéré comme un nom de variable. 


HT . L— Il faut 
10 NOMS='""CAMPAS"" des guillemets 


20 PRINT NOMS 
RUN 
CAMPAS 


La longueur des chaînes est limitée à 255 caractères. 
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Comparaison de chaînes : 


La comparaison de chaînes est faite (par BASIC) de gauche à droite caractère par 


Caractère. 


Dès qu’un caractère d’une chaîne devient différent du vis à vis, la comparaison s'arrête. 


AO INPUT ‘ler nom? ‘"';:N1$ 

20 INPUT "2eme nom? ";N2$ 

30 : 

40 IF N1$>N2$ THEN PRINT N1$;" est plus grand que ";N2$ 
50 GOTO.10 


RUN 
er nom? DURAND 
2eme nom? DUPOND => 


DURAND est plus grand que DUPONT 


Concaténation de chaînes : 


Sens de comparaison 


D ss 
ns LPTufrTafrfo] 


Dès qu'un caractère 
devient supérieur 

à l'autre, 

la comparaison s'arrête 
(R est plus grand que P) 


La concaténation (ou addition) de chaînes se fait à l’aide de l’opérateur ‘+’ (comme 


pour les variables numériques). 


NOMS 


20 INPUT ‘Votre prenom? ‘"'>PRENS 
30 : 


10 INPUT ‘Votre nom? ""3NOM$ [cTa[mfrfals | 
N 


PRENS 


[R[aCv[mfofnto 


. 


NS ES s ChrrabekallLEp 


RUN=7 


Votre nom? CAMPAS 37 - 
Votre prenom? RAYMOND Lxs NOMS + PRENS | 











CAMPASRAYMOND 


[vs NOMS + ” + PRENS | 





CAMPAS RAYMOND ge — 
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Longueur d’une chaîne : LEN(chaîne) 


LEN (chaîne) donne le nombre de caractères d’une chaîne. 


10 INPUT ‘Votre nom? ‘"'>NOM$ 
20 L=LEN (NOM) NOM$ 


30 PRINT “Votre nom comporte ‘';L;'"'caracteres" 
a[mfrfats] 


RUN 
PES L 6—| 





Votre nom? CANPAS er 


Votre nom comporte 6 caracteres. 


Une variable chaîne peut voir sa longueur varier en cours d’exécution-de programme. La 
longueur maximum n'a pas à être réservée en début de programme. 


LEFTS$(chaîne, longueur à prendre) 


Donne les caractères de gauche d’une chaîne. 


10 X$="ORIC1POUR TOUS" 
20 Y$=LEFTS(XS, 5) 


30 PRINT Y$ 

: SCALE 
7 Me LEFTS (X$. 5) 

BASIC 


LofrTifeti] 
Par exemple : 


10 INPUT ‘Votre nom? ‘'':NOM$ 

20 FOR L=1 TO LEN(NOM$) 

30 PRINT LEFTS$(NOM$,L) 

40 NEXT L 

RUN => 
? 

Votre nom? CAMPAS => 


C 

CA 

CAM 
CAMP 
CAMPA 
CAMPAS 
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RIGHT$(chaîne, longueur à prendre) 


Donne les caractères de droite d’une chaîne. 


10 X$="ORIC1POUR TOUS" dd 
20 PRINT RIGHTS (X$,4) 


Sin À RIGHTS (XS.4) 


TOUS 


Le programme ci-dessous affiche les permutations circulaires d’une chaîne : 


10 NOM$=""CAMPAS" 

20 PRINT NOMS$ 

30 FOR N=1 TO LEN(NOM$) 

40  NOMS$S=RIGHTS$(NOM$, 1)+LEFTS$(NOM$, LEN (NOMS$)-1) 
50 PRINT NOM$ 

60 NEXT N 


NOMS 


RUN —> : 
CETTE 


CAMPAS NS. a 
SCAMPA 


ASCAMP 
PASCAM 
MPASCA 
AMPASC 
CAMPAS 


MID$ (chaîne, position début, longueur à prendre) 


Donne les caractères du milieu d’une chaîne. 


10 X$="ORIC1POUR TOUS" 


20 YS=MIDS(XS,7,4) xs (ESA 
RARE VE 
RUN 5 n 


POUR Y$ - MIDS (XS. 7. 4) 
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Par exemple : 


10 INPUT ‘Votre nom? "';NOM$ 
20 FOR P=1 TO LEN (NOMS$) 

30 PRINT MID$(NOM$,P,1) 

40 NEXT P 


RUN Saut de ligne 
car il n'y a pas: 


Votre nom? CAMPAS— 





nVTE>AN 


Le programme ci-dessous affiche le nom à l'envers. 


10 INPUT ‘Votre nom? ‘'>NOM$ 
20 FOR P=LEN(NOM$) TO 1 STEP-1 
30 PRINT MIDS(NOMS,P,1); 

40 NEXT P 


RUN 
Votre nom? ZDUNECK 


7 


KCENUDZ 


Celui-ci découpe une phrase : 


10 INPUT "Entrez une phrase? ";PH$ 
20 : 

30 FOR P=1 TO LEN(PH$) 

40 X$=MID$(PH$,P,1) 

50 IF X$©'"' " THEN Y$=Y$+X$ 

60 IF X$=" ‘" THEN PRINT Y$:Y$="" 
70 NEXT P 

80 PRINT Y$ 


RUN 


Entrez une phrase? LE PETIT CHAT RONRONNE 





— 


LE 

PETIT 
CHAT 
RONRONNE 
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POUR REMPLACER UNE PARTIE DE CHAINE 


10 X$='""AAAAAAAAA" X$ } 
20 P=4:Y$="Z72" 


30 GUSUB 100 [_aaa [2 [ am] 
40 PRINT X$ 
50 END 


100 XS=LEFTS(XS, P-1 )+Y$+RIGHT$(X$,LEN(X$)-P-LEN(Y$)+1) 
110 RETURN 


ASC(caractère) 
Donne le code d’un caractère. 


Tous les caractères sont représentés de façon interne (pour la machine) sous forme binaire. Le 
programmateur à accès à ces codes sous forme décimale. 


10 c$="B" X$ 
20 PRINT ASC(CS) 

Ÿ 
AN 67 (code) 
66 


Les codes de l'alphabet (A, B, C... Z) sont 65, 66, 67... 91 


ASC(chaîne) 


Donne le code du premier caractère de la chaîne. 


La chaîne ne doit pas être vide. 


10 X$="CHARLIE" 


20 PRINT ASC(X$) 67 
RM (caractère) 
67 
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CHR$ (code) 


Fournit un caractère. Certains caractères seulement sont imprimables. 


10 X=67 
20 PRINT CHR$(X) 


RUN 
» 


C 


10 FOR C=65 TO 65+26 
20 PRINT CHR$(C); 
30 NEXT C 


RUN 
nr 


ABCD.....Z 


Ce programme fait correspondre à chaque lettre de l'alphabet, la lettre suivante (par exemple, 
à À on fait correspondre B) 


10 INPUT ‘Votre nom? ‘';NOM$ 
20 : 

30 FOR P=1 TO LEN (NOM$) 

40 X=ASC(MIDS$ (NOMS,P,1)) 
50 PRINT CHR$(X+1); 

60 NEXT P 


RUN 
Votre nom? CAMPAS 27 


DBNQBT 


Certains caractères servent à envoyer des commandes aux périphériques : 


Quelques codes ASCII : 


PRINT CHR$(10); provoque un saut de ligne (sans retour en début de ligne) 
PRINT CHR$(13); provoque un retour en début de ligne (sans saut de ligne) 


La fonction CHR$ (code) est utilisée pour l’envoi de caractères spéciaux à l'écran: 
changement de couleur, clignotement, doublement de la taille des caractères, etc. 
(cf caractères spéciaux p. 133). 
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STR$(X) 


Convertit un nombre sous forme d’une chaîne, permettant ainsi l'accès à chacun des 
chiffres par les fonctions LEFT$, RIGHTS, MID$. 


10 x=75010 

20 X$=STR$S(X) 

30 PRINT X 

40 PRINT X$,RIGHT$(X$,3) 


RUN 
X 


Ca 
75010 
750108 XS 0107 


Notez la présence d’un caractère en début de chaîne. Il correspond à la place du signe + 
(implicite). Son code est 2. 


VAL(chaîne) 


Donne la valeur numérique d’une chaîne commençant par des chiffres (ou un 
espace). 


Si la chaîne commence par une lettre, la valeur est nulle. 


10 PRIX$="22 DOLLARS" 
20 X=VAL(PRIX$) 
30 PRINT X 


RN—7 
22 


Une chaîne ne peut être traitée directement comme une valeur 


10 PRIX$=""22" 
20 PRINT PRIX$x*3 ---> provoque une erreur 
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RECHERCHE D’UNE CHAINE 
DANS UNE AUTRE CHAINE : 


CHS$ 
X$ 
Chaine 
nes 
C 
omparaisons 
Succesives 
—— 
A 
+ 





HAT MORT FOUR TOUS" 









1 Le ia Pi 


INPUT CHAINE CHERCHEE "3 CHS$ 
















4 QUE LA 

SA IF Fe THEH FEIHT "CHAIHE HOH TROUYEE "3: GOTO fi 
FE FERIHT “CRAIRE: LRURPES Er ":F:COTO 4 

A RE ee a ae om ne me me em one a am a eco 

146 EH CHE: 

11E FGF pal TU LEHE 8 11 

1 


LE. ICE? 6. FLieCH$ THEH RETURH 
RETUEH 


Remarque : Une chaîne entrée par INPUT ne doit pas comporter de virgule (qui est 
considérée comme séparateur). 


10 INPUT ‘'Rue? "RUES 


RUN 


Rue? 11 rue de CLATIGNY 


Si l'opérateur entre une virgule après 11, tout ce qui suit 11 est ignoré 
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MISE AU POINT 
DES PROGRAMMES : 
CTRL C-STOP-CONT 


Les programmes ne fonctionnent pas toujours ‘du premier coup’. Basic envoie des messages 
pour certaines erreurs (de syntaxe par exemple) mais ne détecte pas les erreurs de logique. 
Pour les cas les plus délicats, il faut suivre le déroulement du programme étape par étape, ce 
qui est relativement simple en BASIC. 


e En appuyant sur <CTRL C>, nous interrompons l'exécution du programme. 


Nous pouvons alors visualiser les valeurs des variables en mode immédiat. 
L'exécution interrompue peut être poursuivie en frappant CONT (continue). 


Exemple 


Le programme ci-dessous effectue la moyenne de plusieurs notes. 
Nous avons commis (volontairement !) une erreur : En 50, au lieu de TNTE = TNTE + NTE, 
nous avons écris TNTE = NTE. 


10 TNTE=0 
15 NNTE=0 
20 : 


O INPUT "Note? ";NTE 
LO IF NTE=0 THEN GOTO 100 ÉCIRS 
50 TNTE=NTE 

60 NNTE=NNTE +1 

70 GOTO 30 

80 : 


100 PRINT ‘'Moyenne:'""; TNTE/NNTE 





RUN 





Hbshhéy On entre O 
pour indiquer la fin 
Note? 157 des notes 
Note? 13=> 
Note? 187 


Note? 0 + 
| La moyenne devrait être 15.3 


Moyenne:6 


Naturellement, la moyenne obtenue (6) est fausse. 
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Remarque : Les instructions 10 et 15 qui initialisent les valeurs de TNTE et NNTE à zéro ne 
sont pas indispensables puisque RUN les initialise à zéro. Il est cependant plus prudent de le 
faire dans un programme plus important où TNTE et NNTE pourraient déjà avoir été utilisées 
dans une autre partie de programme et avoir une valeur non nulle. 


Exécutons à nouveau le programme et interrompons-le après avoir entré la première note. 
Nous pouvons visualiser en mode direct les valeurs des variables NTE, TNTE et NNTE. 





RUN => 
Note? 15 On appuie sur <CTRLC> 
Note? HT pour interrompre 
ne 
Visualisation BREAK AT 30 
des valeurs en | —— PRINT NTE,TNTE,NNTE- 
mode direct #7 
12: 15: >1 





Pour l'instant, rien d’anormal. 
Frappons CONT pour continuer l'exécution du programme et interrompons à nouveau le 
programme après avoir entré la 2° note: 


Pour CONT 
— PA 
On appuie 








Note? Le à nouveau sur 
Note? ee <CTRLC> 
Le cumul pour DREARAT:3D 
TNTE n'est PRINT NTE,TNTE,NNTE 
pas effectué 
13: 13: 2 
NF AN 


Nous nous apercevons en regardant la valeur de TNTE que le cumul des notes n’est pas 
effectué. 


STOP : 


Au lieu d’appuvyer sur les touches <CTRL C>, nous aurions pu placer une instruction ‘STOP”’ 
en 65 


cette instruction 


RUN => On peut voir 
À à chaque passage 
dans la boucle 


Note? 15 
#" comment évoluent 


les valeurs 
BREAK AT 65 _. des variables 
TNTE et NNTE 





PRINT TNTE,NNTE 7 





15 1 
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CONT 
Note? 13 


BREAK AT 65 
PRINT TNTE,NNTE => 


13 2 


CONT 


En cas de ‘BOUCLAGE’ de programme: 


Lorsqu'un programme ne s'arrête pas, ajouter l'instruction TRON en début de programme. 
On peut ainsi localiser la partie du programme où la boucle s'effectue. 
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LES SOUS PROGRAMMES : 
GOSUB/RETURN 


Il est fréquent qu’une même séquence d'instructions soit utilisée PLUSIEURS FOIS dans un 
programme. 


Un sous programme permet d’écrire UNE SEULE FOIS cette séquence qu’il suffit 
d’appeler de différents endroits du programme par GOSUB no d'instruction. 





: 
10 A=30:B=10 


20 S=A+B 
30 P=Ax%xB 
50 PRINT A,B,'"'Somme:'"";S; "Produit :"";P 


60 . 


70 . Même séquence 
d'instructions 

90 A=20:B=5 D 

100 S=A+8 : 























110 P=A*xB 
120 PRINT A,B,'"'Somme:"";S;"Produit:";P 
130 . 





20 GOSUB 500 provoque un branchement du programme en 500 (comme le ferait GOTO 
500) mais l’instruction RETURN (RETOUR) placée à la fin du sous-programme 
provoque un RETOUR AUTOMATIQUE après l'instruction qui suit GOSUB 500, 
c’est-à-dire l'instruction 30 sur l'exemple. 











Pour le 2° appel du sous-programme en 100, le retour se fait en 110 Orrbbee 
par un 
4 sous-programme 
10 A=30:8=10  j‘' appel __æ | 500 PRINT ‘debut sous-programme" 
20 GOSUB 500—  |510 s=A+8 
30 . V— eo, 7 |520 P=A4B 
Fe 40 . 530 PRINT A,B,''Somme:'"";S;'"Produit:"'; 
u 50 . > 540 PRINT "fin sous-programme! 
He éein| es » 550 PRINT 
l'instruction D” dé ne 560 RETURN Les == 
qui suit GOSUB | 90 A=20:8=5 07 — 
100 GosuB 500 7 
110 END æ 


52 | ORIC POUR TOUS 


AN 7 

debut sous-programme 

30 10 Somme:40 Produit :300 
fin sous-programme 


debut sous-programme 
20 5 Somme:25 Produit : 100 
fin sous-programme 


Un sous-programme peut lui-même en appeler un autre. 


Les adresses de retour (90 et 540 sur l'exemple) sont gérées par BASIC à l’aide d’une pile. 


50 500 ..... 1000 ..... 
60 510 ..... 1010 ..... 
70 

80 GOSUB 500 530 GOSUB 1000 1030 ..... 
90 540 ...... *+— 1040 ..... 
100 550 .....e 1050 ..... 


110 560 RETURN 1060 RETURN 


540 


Pile des 
adresses 
de retour 


GOSUB / 


RETURN 


Les instructions sont exécutées dans l’ordre suivant : 


50 60 70 80 

500 510 520 530 

1000 1010 ....1050 1060 
540 550 560 

90 100 


Debut du 1er sous programme 
2eme sous-programme 

Fin du 1er sous programme 
Retour au programme principal 


N'essayez pas de sortir d’un sous-programme par GOTO), ni d’entrer dans un sous-programme 


par GOTO. 
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INTERLUDE 


Au sujet des organigrammes 


Faut-il utiliser des organigrammes ? 


Ce sujet est très controversé; certains en sont partisans, d’autres, au contraire ne les utilisent 
pas. 


Les partisans des organigrammes prétendent qu’une programmation doit être précédée d’un 
organigramme, qu'un programme seul ne peut être directement compréhensible. 


Ceux qui ne les utilisent pas prétendent qu’un programme bien structuré n’a pas besoin 
d’organigramme, qu’un organigramme trop développé devient vite confus. 

Nous pensons qu’il est important d'accorder beaucoup de soin à la présentation des 
programmes de façon à ce qu'ils puissent être compris avec le minimum d'efforts. 

Un organigramme ‘suit’ rarement un programme ; seul le programme reste. C’est pourquoi, 
un programme doit être documenté le plus possible. 


54 | ORIC POUR TOUS 


DATA/READ/ 
RESTORE 


L’instruction DATA permet de définir des données dans le programme lui-même. 
Celles-ci sont ensuite lues dans des variables par l’instruction ‘READ variable’ 


(LIRE variable). 
Pointeur de DATA 
au départ 


Pointeur de DATA 
après 2 READ exécutés 


10 DATA L ARENE 13, 


20 READ 1}, 
30 READ N2 
40 













READ N3 
50 READ N4 
60 REM -------- 
70 PRINT N1,N2,N3,N4 
80 PRINT ‘Moyenne :""; (N1+N2+N3+N4) /4 





RUN . | 
Basic lit successivement 
les valeurs 
10 16 13 14 10, 16, 13, 14 dans 
Moyenne:13.33 N1, N2, N3, N4. 





‘READ N1' lit la 1“ donnée (10) dans N1. 

Le pointeur de DATA (géré par BASIC) progresse de 1. 

Ainsi ‘READ N2’ lit la 2° donnée dans N2, etc... 

Sur l'exemple ci-dessus, nous avons supposé que le nombre de données à lire (4) était connu. 
Pour repérer la fin des données, plaçons 99. 


10 DATA 10,16,13,15,99 #— 


Pour indiquer 
la fin 

30 READ NTE des notes. 
40 IF NTE=99 THEN GOTO 100 

45 PRINT NTE, 

50 TNTE=TNTE+NTE 

60 NNTE=NNTE+1 

70 GOTO 30 

80 REM —------————————mmmmm— 

100 PRINT ‘Moyenne :'"">TNTE/NNTE 


run 


10 16 13 15 18 Moyenne : 14.6 
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Les données peuvent être écrites sur plusieurs lignes : 


10 DATA 10,16,13 
20 DATA 15,18,99 


est équivalent à la ligne 10 du programme ci-dessus. 


Caractères spéciaux ; 


Les DATAS contenant des caractères spéciaux doivent être placés entre guille- 
mets. Sans la présence de quillemets, la virgule serait considérée comme séparateur. 


10 DATA "12,Rue LAGAFFE" 


20 REM 

30 READ X$ 
40 PRINT X$ 
RUN 


12,Rue LAGAFFE 


Erreurs : 


OUT OF DATA : Si le nombre de READ exécutés est supérieur au nombre de données en 
DATA, le message OUT OF DATA apparaît. 


10 DATA 15,19 __#— je 
74 
40 READ Z 


TYPE MISMATCH : Le type de la donnée lue doit s’accorder avec le type de la variable. 
10 DATA BELLANGER +" 


20 READ X 
La donnée (type chaîne) 


RUN ne s'accorde pas 
ur avec le type de la variable 


TYPE MISMATCH (type numérique) 


Il faut écrire : 20 READ X$ 
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RESTORE : 


Positionne en début de DATA, ce qui permet de relire les données depuis le début. 


10 DATA 6,3,14 
20 : 

30 READ A 

40 READ B 

50 READ C 

60 : 

70 RESTORE 

80 : 

90 READ D,E,F 
100 : 

110 PRINT A,B,C 
120 PRINT D,E,F 
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Annuaire téléphonique : 


Un annuaire téléphonique est défini en DATAS. En fournissant un nom, on obtient le numéro 
de téléphone correspondant. 


10 REM ANU ANNUAIRE 
15 : 
30 DATA BISSON,  444-22-11 
40 DATA BELLANGER, 555-33-22 
45 DATA CAMPAS, 7717-44-11 
50 DATA * 
60 REM——=—=——— me 
70 PRINT 
80 INPUT ‘Quel nom? ‘"';NOM$ 
85 : 
90 RESTORE :REM Positionnement en debut 
100 : 
110 READ NS$:IF N$='"*x"" THEN PRINT ‘"'N'existe pas":G0OTO 70 
120 READ TPH$ 
130 IF N$=NOM$ THEN PRINT:PRINT N$,TPH$:GOTO 70 
140 GOTO 110 
0 


150 

160 " RUN: 

10! 

180 ‘ Quel nom? CAMPAS 
190 F 
200 ‘ CAMPAS 777-44-11 


Pour éviter d’entrer le nom en entier, lors d’une recherche, changer la ligne 130: 


130 IF NOM$=LEFTS$(N$,LEN (NOM$)) THEN PRINT N$,TPH$:GOTO 70 
RUN 
—# 
Quel nom? BIS 
Sy 


BISSON 44-33-22 


Naturellement, si plusieurs noms commencent par ‘BIS’, nous obtenons le premier de la liste. 


La liste triée de l'annuaire s’obtiendrait en lisant les DATAS dans 2 tables qu'il faudrait ensuite 


trier. 
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Pluriel des noms se terminant par ‘OU’ 


Nous savons que le pluriel des noms se terminant par ‘OÙ s’obtient en ajoutant ‘S’ au nom au 


singulier sauf pour CHOU, GENOU.... 


10 REM PLUR PLURIEL DE NOMS SE TERMINANT PAR "OU! 
30 DATA CHOU,GENOU,HIBOU,CAILLOU,BIJOU, JOUJOU, POU 

40 : 

50 PRINT 


60 INPUT ‘Donnez un nom se terminant par "OU" :'";:N$ 


80 : 

90 RESTORE 

100 : 

110 FOR L=1 TO 7 

120 READ X$ 

130 IF X$=N$ THEN TERM$="'X'':GOTO 170 
140 NEXT L 

150 : 

160 TERM$S="'S" 

170 PRINT "Le pluriel est:'">N$+TERMS$ 
180 GOTO 50 


run 


Donnez moi un nom se terminant par "OU! 
Le pluriel est: VERROUS 


Donnez moi un nom se terminant par "OU! 
Le pluriel est: BIJOUX 


70 IF RIGHT$(N$,2)<>'"'OU" THEN PRINT:PRINT "PAR OÙ ! ‘’:GOTO 50 


VERROU 


BIJOU 
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Budget familial : 


Dans chaque ligne de DATAS sont définies, dans l’ordre, les dépenses d’un mois : loyer, 
alimentation, divers. Le programme lit les DATAS et édite le total des dépenses pour chaque 
mois ainsi que le cumul par type de dépense. 


10 REM- BUDG BUDGET FAMILIAL 
20 : Lover Alimentation Divers 
25 : Ÿ Ÿ Ÿ 


40 DATA JANVIER, 2500, 3000, 1900 

50 DATA FEVRIER, 2500, 2000, 1500 

60 DATA MARS , 2500, 2200, 600 

70 DATA * 

80 REM —---—— eee nee nee 

90 TLOYER=0:TALIM=0:TDIV=0 

100 : 

110 LPRINT ,"'LOYER","ALIM'"','"DIVERS" 

4120: 

130 FOR MOIS=1 TO 12 

140 READ MOIS$:IF MOIS$="x" THEN 230 

150 READ LOYER 

160 READ ALIM 

170 READ DIV 

180 TMOIS=LOYER+ALIM+DIV 

190 TLOYER=TLOYER+LOYER:TALIM=TALIM+ALIM:TDIV=TDIV#DIV 

200 LPRINT MOISS$,LOYER,ALIM,DIV,TMOIS 

210 NEXT MOIS ‘ 

230 LPRINT sur l'imprimante 
D. 


240 LPRINT ,TLOYER, TALIM, TDI V— 


LOYER ALIM DIVERS 
JANVIER 2500 3000 1000 6500 
FEVRIER 2500 2000 1500 6000 
MARS 2509 2200 600 5300 
7500 7200 3100 
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Devinez un mot : 


Ce programme choisi un mot parmi ceux définis en DATA 

Le jeu consiste à deviner ce mot. 

Le joueur propose des lettres et le programme lui indique en retour la ou les positions des 
lettres dans le mot cherché. 


Amélioration possible : 


Les mots sont proposés dans l’ordre où ils sont définis en DATA. 
Ils pourraient être choisis au hasard en faisant : 


25 N=5 :REM N:inombre de mots 
80 RESTORE 
82 X=RND(1)%N MOTS 


84 FOR I=1 TO X:READ MOTS$:NEXT I :REM lecture de X mots 
86 READ MOTS mfali[sTofn 


10 REM DEVINE | | | 


30 DATA MAISON,SAPIN,BROUETTE ,CIDRE ,CASSETTE 
4O DATA * BPL( ) Lofof[ol [ [| 


50 : 0/1 0/1 
60 DIM BPL(15) :REM Table des lettres trouvees 1 si trouvé 


70 : 

80 READ MOT$:IF MOT$="#" THEN RESTORE:GOTO 80 

90 L=LEN(MOTS$) 

100 FOR P=1 TO 15:BPL(P)=0:NEXT P 

110 PRINT:PRINT "Vous devez trouver un mot de ";L;"Lettres'":PRINT 
120 : 

130 PRINT:INPUT "Donnez une lettre:";L$ 

140 : 

150 FOR P=1 TO L :REM Recherche si lettre dans mot 
160 IF L$=MID$(MOT$,P,1) THEN EPL(P)=1 

170 NEXT P 

180 REM ----------------------- Affichage resultat 
190 BPL=0 

200 FOR P=1 TO L 

210 IF BPL(P)=1 THEN PRINT MID$(MOT$,P,1); :BPL=BPL+1:GOTO 230 
220 PRINT "."; 

230 NEXT P 

240 IF BPL<L THEN 130 

250 PRINT:PRINT "C'est bon 


260 GOTO 70 

(24 16 

280 ' RUN 

290 ! mt 

300 ' Vous devez trouver un mot de 6 lettres 
310 

320 ' Donnez une JENRPES SZ 
330 ‘ 

340 ! ...8.. 

350 

360 ' Donnez une lettre:M 77 
370 

3801 MES: 
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Questions/Réponses 


Ce prograinme pose une question, propose des solutions puis vérifie si la réponse est bonne. 








1C REM QRS QUESTIONS/REPONSES (avec solutions proposees) 
26 : Bonne 
30 : Question Réponses proposées réponse 

: à | : 
50 DATA "Capitale de l'ESPAGNE? mn "MADRID BRUXELLES MILAN'", "MADRID" 
60 DATA ‘Date de MARIGNAN? M 21515: 1958", "1515" 
70 DATA * 
80 : 
90 READ Q$:1F Q$="*" THEN STOP :REM lecture d'une question 
160 READ RP$ :REM reponses proposees 
110 READ BR$ :REM bonne reponse 
126 : 
130 PRINT:PRINT Q$;RP$ :REM Question/reponses possibies 
140 : 
150 INPUT ‘Votre Reponse? ";REP$:1F REP$="" THEN 150 
160 : 


170 IF REP$=BR$ THEN PRINT:PRINT "C'est bon'":G0T0 90 
180 PRINT:PRINT "La reponse est:";BR$ 


190 GOTO 90 

200 

216 ' RUN 

220 ‘ 

250 ‘ Capitale de l'ESPAGNE? MADRID BRUXELLES MILAN? 
240 ' Votre reponse? MADRID 

250 U FA 

260 ' C'est bon 
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LES TABLES 


Pour mémoriser 4 notes, nous pourrions utiliser 4 variables N1, N2, N3, N4 en faisant : 


10 INPUT ‘'Note1? ‘';N1 
20 INPUT ‘'Note2? ‘';N2 
30 INPUT ‘''Note3? '':N3 
40 INPUT ‘'Note4? "':N4 


6 


RARE 


Utilisons plutôt une ‘TABLE’ que nous appelons NTE( 
Les ‘éléments de cette table NTE() sont connus sous les noms de NTE(1) 
NTE(2) 
NTE(3) 


NTE (1) —> ee Table NTE( ) NTE(4) 





NTE (4) —+ RTE 


Nous pourrions faire comme ci-dessus : 


10 INPUT "Note 1";NTE (1) 

20 INPUT "Note2? ":NTE (2) 
30 INPUT "Note3? ";NTE(3) 
40 INPUT "Note4? "';NTE (4) 


Mais utilisons plutôt une ‘boucle FOR’ ; en faisant varier un ‘indice’, nous simplifions l'écriture 
du programme : 


ed La 1°" fois : 
Le est équivalent à NTE (1) 
10 FOR N=1 TO #4 puisque N = 1 


4 fois O0 INPUT ‘Note? ‘"';NTE (N) 
30 NEXT N 
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Au départ, N est égal à 1. Par conséquent 


20 INPUT "Note? '':NTECN) est equivalent a 


20 INPUT "Note? ";NTE(1) 


C’est donc dans NTE(1) que la première note est introduite. 


12 ==> ! 12 ! NTE(1) 
|! O ! NTE(2) 
1! Q ! NTEG) 
10-71 


Au second passage dans la boucle FOR, NTE(N) est équivalent à NTE(2) puisque N est devenu 
égal à 2. 


RUN 


Note? 
Note? 16 
Note? 132 


Note? 112 


PRINT NTECT)+NTE (2)+NTE C3)+NTE (4) FT 


52 @—| Total Frappez 
en mode 
des notes 


De immédiat 
PRINT NTECT),NTE (2) ,NTE(3),NTE (4) 


12 16 13 11 


Sans la boucle FOR, nous ferions : 


10 N=1 

20 : 

30 INPUT ‘Note? '';NTE(N) 
40 N=N+1 

50 IF N>5 THEN 100 

60 GOTO 30 

70: 


100 STOP 
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Edition de la table NTE() : 


Editons la table NTE() après l’avoir documentée. 


10 FOR N=1 TO 4 
20 INPUT ‘Note? ‘"':NTE(N) 


30 NEXT N 

40 REM —--------—-— Edition de La table NTE() 
50 PRINT 

60 PRINT "Liste des notes" 

70 PRINT 


80 FOR N=1 TO 4 
90 PRINT ‘"Note'';N;NTE (N) 
100 NEXT N 


RUN, 
Note? 12 

Note? 1 
Note? 13-77 
Note? LE 


Liste des notes 


Note 1 12 
Note 2 16 
Note 3 13 
Note 4 11 


Dimensionnement des tables : DIM (nombre d’élé- 
ments) 


Les tables de plus de 10 éléments doivent être ‘dimensionnées’, afin de réserver leur place en 
mémoire centrale. 


Les notes pourraient être définies dans une ligne DATA : 
10 DATA 12,16,13,11 


25 DIM NTE(4) 

30 FOR N=1 TO 4 :REM Lecture des DATAS 
40 READ NTE(N) 

50 NEXT N 

60 REM ——-------—----—-—- Total et moyenne 

70 TNTE=0 

90 FOR N=1 TO 4 

100 TNTE=TNTE+NTE (N) 


110 NEXT N 

120 : 

130 PRINT ‘'Total/Moyenne:'">TNTE,TNTE/4 
RUN 

Total/Moyenne: 52 13 
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Recherche de la meilleure note 


Nous supposons d’abord que la première note est la meilleure. Puis nous la comparons à la 


seconde. 
Si celle-ci est supérieure, elle devient la meilleure. Etc... 


MEIL 
NTE (1 
(1) D" (au départ) 
NTE (2) 
NTE (4) 





10 DIM NTE (4) 

20 REM —------———————- Introduction des notes 
30 FOR N=1 TO 4 

40 INPUT ‘Note? '':NTE(N) 

50 NEXT N 

60 REM —-----————————— Recherche de La meilleure note 
70 MEIL=NTE (1) 

80 FOR N=2 TO 4 

90 IF NTECN)D>MEIL THEN MEIL=NTE (N) 

100 NEXT N 

110 REM ===. 
120 PRINT ‘"'La meilleure note est:'";MEIL 


RUN 


La meilleure note est: 16 


Ci-dessous, nous ne mémorisons pas la meilleure note mais sa POSITION dans ta table. 


CAMPAS 


PMEIL DEGREMONT 





10 DIM NTE(4) 

20 DIM ELV$(4) 

30 REM —--------———————————mmmmmmmmmmmmmmmmmmmmm—— 
4O FOR N=1 TO 4 

50 INPUT ‘Note? '':NTE (N) 

60 INPUT "'Eleve?''>ELVS$ (N) 

70 NEXT N 

80 REM —--=-----…— 
90 PMEIL=1 
100 FOR N=2 TO #4 
110 IF NTEC(N)D>NTE (PMEIL) THEN PMEIL=N 
120 NEXT N 
130 REM—----——-——mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm——— 
140 PRINT ‘Meilleure note:'">NTE(PMEIL) ,ELV$ (PMEIL) 
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RUN 

A 

Note? 12. 

Eleve? CARPAS -, 


Note? 16— 


Meilleure note: 16 DEGREMONT 


enr mena [ra 


2 


Remarque : Les ‘traitements que nous avons effectué (total, moyenne, recherche de la 
meilleure note) ne nécessitaient pas de table. Mais des traitements plus complexes tels que le tri 
par exemple rendent nécessaires l’utilisation de tables. 


Tri des notes : 


Trions les notes contenues dans la table NTE(). 

Nous comparons d’abord le 2° élément de la table au 1“: 

e S'il est plus grand, nous les laissons dans l’ordre. 

e S'il est plus petit, nous les inversons afin qu’ils soient dans l’ordre. 


239 IF NTECI+1)<NTE(I) THEN X=NTE(CI):NTECI)=NTECI#+1):NTECT+1)=X: IV=1 
! ! 
SI NTE(I+!)<NTE(I) ALORS inversion de NTECI+1) et de NTE (I) 


L'inversion de NTE{(I) et de NTE(I+1)se faiten utilisant une variable intermédiaire (X) : 


—\ 


NTE (2) 13 k intermédiaire 
S— 


Ensuite, nous comparons de la même façon le troisième élément au second (en faisant 
progresser l'indice I de 1) et nous les inversons s'ils ne sont pas dans l’ordre. Etc... 


Après avoir comparé tous les éléments adjacents de la table, le plus grand des éléments de la 
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table est ‘monté’ en fin de table. (Remarquez qu’il n’y a que N-1 comparaisons pour N 
éléments). Mais le tri n’est pas nécessairement achevé. 


Pour le savoir, il suffit de tester le témoin d’inversion IV. S'il n’y a pas d’inversion au cours de 
l'exploration de la table, c'est que NTE(1) < NTE(2)< NTE(3) < NTE(4). Par conséquent, les 
éléments sont dans l’ordre. 


En revanche, s’il V a eu inversion, nous explorons à nouveau la table. A l'issue de la seconde 
exploration, le plus grand des N-1 éléments est arrivé en avant-dernière position. N 
explorations au maximum sont nécessaires pour trier la table. 


table NTE ( } 










DEBUT 





Après le 1°” Après le 2' 
passage passage 
le plus grand < > OUI 
est remonté <NTE(I +1) < NTE (1) 
en fin de table 
À À FIN 
DE 
TABLE? 





INVERSION ? 


NON NON 





a OUI 





40 FOR 1=1 TO 4 
50 INPUT ‘Note? '':NTE(I) 


70 NEXT I 

ZOO 'REM-== == memes sn Tri des notes === 
205 : 

210 IV=0 :REM Temoin d'inversion 


220 FOR 1=1 TO 4-1 
230 IF NTECI+1)<NTE(I) THEN X=NTE(I)D:NTECI)=NTE(I#1):NTEC1+1)=X: IV=1 


240 NEXT I 

250 1F IV=1 THEN 210 :REM Y a t'il eu inversion? 

255 : 

260 REM—---------————— Edition des notes triees ----------------- 


270 FOR I1=1 TO 4 
280 PRINT NTE(I) 
290 NEXT I 
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RUN 


Note? 15 
Note? 13 
Note? 11 
Note? 12 


11 
12 
13 
15 


Pour mieux ‘suivre’ l’évolution du tri, vous pouvez insérer : 
245 FOR K=1 TO 4:PRINT NTECK):NEXT K:PRINT 
Après chaque exploration de table, nous éditons son contenu. 


RUN 





1°" passage 
13 le plus grand 
est monté en 


11 
12 fin de table 
in = ones 


11 
12 | 2° passage | 
131 


15 
Pour obtenir la liste des notes dans l’ordre croissant accompagnée de la liste des noms, il suffit 
d’inverser dans la table ELV$() à chaque fois que nous inversons dans NTE(). 


44 FOR I=1 TO 4 

59 : INPUT "Hote MiHTECI) 

68 :IHPUT "Hom eleve ";ELYS I: 

F& HEXAT I 

2AQ REM------ Tri = 
216 1V=8 

226 FOR I=1 TO 4-1 

230 :IF HTEl+13=2NTEC1) THEN 249 

235 :H=NTEC I D: NTEL I Y=NTEC 1+1 2: NTEX 141 =X 

237: MB=EL VS 1 >: ELVSC I D=ELVSC 141 3: ELVSC L+1 2=X8: lV=1 
248 HEXT I 

256 IF IY=1 THEH 2184 

269 REM-----—mm mme Edition ue nu 
2vg FÜR I=i TO 4 

284 :PRIHT HTESI2.,ELYS# I 

298 HEXT I 


RUN 


11 BISSON 
12 CAMPAS 


13 BELLANGER 
16  DEGREMONT 
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Pour obtenir la liste trié dans l’ordre croissant des noms, il suffit de faire : 


230 IF ELV$(I+1)<ELVS$S(I) THEN .......e 


Etablissement d’une facture : 


En DATAS, sont définis des produits (référence, désignation et prix) 


Les produits facturés sont stockés dans 4 tables REF$(), DESG$(), PRIX() et QT(). Lorsque 
tous les ‘produits sont saisis, nous éditons la facture. 


REF$( ) DESG$( ) PRIX( ) QT() 
en 
NS CHAISE XXX 
Exécution : 


Nom client? DUPONT 
Adresse? 15 rue xxXXXXXXXXXX 


Produit (F pour fin)? PR1 
Quantite? 3 
Produit (F pour fin)? PR3 
Quantite? 2 
Produit (F pour fin)? F 


Etablissements xxx 


Facture de: DUPONT xxxxx 
15 rue xxxxXxxxxX 


PR1 TABLE xxxxxx 1400 3 4200 
PR3 CHAISE xxxxx 650 2 1300 
Total: 5500 
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FEM FT FACTURE 


ut Pi 
A ELX 


D mi 


REV Referenses, des iänations. Prix dés Produits ee 


RARE LX EL 


GATE MP. PFAUTEUIL 
DATA FRE", TABLE 
CATA MPREM, MCHAISE 
DATA “ 

F: E! tr Â th c00 ets io mms 6 et vou es es ns ete run one ot vs 0 
(sl) THEUT. “Ho lient 
: THFUT "Adresse k ADR 






ni 


= 
AE 





Ex 
LA 





à HL=G REM He nb de lignes 





SA IHPUT Reference Produit CF pour Fini "rh 
GA IF F$a"F' THEH 
FA INPUT Guantite "MOT 











RESTORE RER positionnement début DATA 


à RERD REFS:IF REFS="#" THEN PRINT "Hexiste Pas":GOTO 154 
RERC GESGS 
READ FRET 








LHC HL =PRIE 
GTÉ NL =QT 





GOTO LS 
RE eee A À À OF  geeneneeonne 
LFRTHT 

LFRIHT "ELA MeTrt x 
LFRIHT TA 1 
LFRIHT TAB 135446 
ll 





<":LPRIHT 





"Facture de: "3 TABE 1344 1: MÜFTE 
ë ADF 








Le Lei TO HL 
:LPRIHT REF SEL 
: IHT TAB 1 





LP TRES LS 
LPRIHT TABS 15 
LFETHT THE 1 ; l 
AE Te TOUTE LA EPRTE EL 

HSE HEAT L 

44 LFRIHT 

+ LPÉTHT TES LE Total "TES 134560 T 
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Composez votre menu : 


Vous avez le choix entre 3 hors-d'œuvres, 3 plats et 3 desserts. Vous ne disposez que de 60 f. 
Toutes les combinaisons de hors-d’œuvres, de plats et de desserts sont calculées. Seules sont 
retenues celles dont les montants sont inférieurs ou égaux à 60. 


Pour afficher les noms des hors-d’œuvres, plats et desserts, il faudrait les définir en DATA et les 
lire dans 3 tables (comme pour les prix). 


10 REM RESTA 





20 : 

30 BUDG=60 :REM Somme disponible 

4O : 

50 DATA 8,10,12 

60 DATA 35,40,45 PH() PD() 
70 DATA 12,15,20 

80 : | 8| 12 
90 FOR H=1 TO 3:READ PHCH):NEXT H 
100 FOR P=1 TO 3:READ PP(P):NEXT P 

110 FOR D=1 TO 3:READ PD(D):NEXT D au 
120 : Prix Prix 
130 FOR H=1 TO 3 hors d'œuvres plats desserts 
140 FOR P=1 TO 3 

150 FOR D=1 TO 3 

160 T=PH(H)+PP(P)+PD(D) 

170 IF T>BUDG THEN 190 

180 LPRINT "Hors d'oeuvre:'";:H;"Plat:";P;"Dessert:";D;" Total:";T 
190 NEXT D 

200 NEXT P 

210 NEXT H 

Hors d'oeuvre: 1 Plat: 1 Dessert: 1 Total: 55 

Hors d'oeuvre: 1 Plat: 1 Dessert: 2 Total: 58 

Hors d'oeuvre: 1 Plat: 2 Dessert: 1 Total: 60 

Hors d'oeuvre: 2 Plat: 1 Dessert: 1 Total: 57 

Hors d'oeuvre: 2 Plat: 1 Dessert: 2 Total: 60 

Hors d'oeuvre: 3 Plat: 1 Dessert: 1 Total: 59 
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Table à 2 dimensions : 


Les tables peuvent avoir plusieurs dimensions (jusqu’à 255). 


Soit un ensemble de notes définies en DATA. Nous voulons les éditer. Nous pourrions lire les 
DATAS et les éditer au fur et à mesure (voir chapitre sur les DATA). 


L'utilisation d’une table à 2 dimensions permet d'effectuer d’autres traitements (comme le tri 
par exemple). Chaque ligne représente les notes d’un élève. 


ELVS( ) NTE (,) 


BELLANGER 
BISSON 





CAMPAS 


Pour obtenir la liste des élèves et de leurs notes dans l’ordre décroissant des moyennes, nous 
utilisons une table: intermédiaire (PT). 

Cette table PT{) ‘pointe’ vers la table des notes NTE{(,). Le tri se fait sur la table MY() (en 
inversant les éléments de PT() à chaque fois que nous inversons 2 éléments de MY() ). 
Sans cette table PT(), il faudrait inverser les notes de la table NTE{(,), ce qui serait fastidieux. 


Avant tri 





MY( ) PT () ELVS 


BELLANGER 
BISSON 






Après tri 





Les 2 tables 
triées 
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15 
24 
36 
4@ 
54 
65 
Fa 
80 


RENM TH AHALYSE LE MOTES 
DATA BELLANGER, 





12,14,12,95 
DATA EISSOH, 15.12,15,93 
DATA CAMPFAS. 16.:14,16.99 
DATA # 
RENM----— ronsermerenemennnsenenesess, Lecture des. DATAS:S-SSS 
CIN ELV& SC 360, PT GA 


38 DIN HTEC34. 141 

188 : 

114 FOR Ezi TO 36 eleves maxi 

12@ :REAC “$:IF “g="x" THEH t JEzE-1:GOTO 214 

139 :ELY#E=## 

144 : 

158 :FÜR Hzi TO 14 14 notes max Par eleve 

166 FEAD #:1F #2=39 THEH 194 

176 HTESE, Hz 

184 :HEAT H 

199 HEAT E 

LOQ REM---- eu om ne Editions de EL gt MTEL, 5 —-— 
219 FOR E=i TO ME | 
224 :LFRINT ELYSIE TABLES 5 

£30 :FOR H=i TO 14 

z44 IF HTESE,Hiï=ÿ THEH 274 

259 LFRINT TAESZS+MES CS MTECE. Hi; 

269 :MHE*XT H 

276 :LFRIHT 

2869 HEXT E 

29Q REM----— um ven oem eu cn men ne Calcul des mogennes dans MEN mue 
SG LPRIHT:LPRIHT "Mosennes":LFRIHT 

319 FOF Ezi TO HE 

329 :TH=A 

336 :FOR Hz1 TO 14 

34m IF HTESE.Hi=6 THEH HHeH-1:GOTO 374 

359 TH=TH+HTECE, Hi 

364 :HEXT H 

274 :MYCES=TH HH 

386 :LFRINT "Mou: "EL SE: TAEC 34: MYCE 

394 MEXT E 

dOÿg REMsssssesszesssszzszsz Edition dans l'ordre des mogennes sex 
416 FOR Izi TO SB:PTCIISIT:MEXT I 

429 REM------- Tri 

454 1V=f 

448 FÜR I=1 T0 HE-1 

459 :IF MicI+12<=NMrC 1: THEH 464 

455 Aer I EME I de I +1 2: MVC I+1 Ex 

ST 2 AePTEI PTE I EPTCI+I D: PT I+losk: IVel 
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NEXT 1 
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476 IF IY=1 THEH 439 

489 REM------- mn Edition 
435 LPRINT:LPRIHT "Liste dans l'ordre des moyennes ":LPRIHNT 
496 FOR Ezi TO HE 

586 :LPRIHT ELYS#CPTCE D): TABC 25); 

519 :FOR Hz1i TO 16 

520 : IF HTE“PTCE),Hi=9 THEN 54@ 

539 : LPRIHT TABC25+3#M3; NTECPTCE 3, H); 
549 :HEAT H 

554 :LPRIHT THE 4G5;:MYCE 5 

568 HEXAT E 


ÉESAADHER LE 14 1€ 
EISSCOH 135 12 15 
CAMFAS 16 14 16 
Mogennes 

Moy : BELLANGER 12, 666666 
Moy : BTSSUH 3, HS3IUES 
Moy : CAMFAS 14 


Liste dans l'ordre des mosernnes 


CAMPAS 16 18 16 14 
BISSON 15 18 15 
BELLANGER LE 14 1€ 





ORIC POUR TOUS 


75 


Elections 


Plusieurs bureaux de vote sont gérés. Les résultats pour chaque candidat et chaque bureau de 
vote sont stockés dans une table VX(,) à 2 dimensions. 


BUR 1 BUR 2 


CAND$( ) | Ÿ 


DUPONT 
MARTIN 


BUR 3 
Ÿ 


VX (..) 










Un premier mode (CAND) permet de définir les noms des candidats et de documenter la table 
CANDS$(). 


Choix? CAND => 








Nom candidat? (F pour fin) DUPONT 
Nom candidat? (F pour fin) MARTI 
Nom candidat? (CF pour fin) DURANDÿ 





Nom candidat? (F pour fin) EE 


Un second mode (VBUR) permet de documenter la table VX(,) pour un bureau de vote (1, 
2,...). Sur l'exemple, il n’y a pas cumul au fur et à mesure du dépouillement; il faut entrer le 
nombre de voix total pour un bureau de vote. L'ancienne valeur peut cependant être modifiée. 


Choix? VBUR 





F 
L 4 CANDS( }) 
ureauf l- 
À 
DUPONT? 10. 
MARTIN? 82 
DURAND? 20 © 


Un troisième mode affiche les résultats (RESUL) : total des voix pour chaque candidat ainsi que 
le pourcentage. 


Pour effectuer le cumul par bureau de vote, au fur et à mesure du dépouillement, 2 solutions 
sont possibles : 


e Avec la même table à 2 dimensions VX(,), ajouter les voix au fur et à mesure. 


e Définir la table VX avec 3 dimensions et y consigner tous les dépouillements intermédiaires. 
Cette solution est plus ‘sûre’ puisqu'elle permet d’avoir la trace de tous les dépouillements. 


VX (..) 









MARTIN 


DURAND 





he en Y Dépouillement 2 


À —__ Dépouillement 1 
BUR 1 BUR 2 
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Pour obtenir la liste des résultats dans l’ordre des voix obtenues par les candidats, nous 
pourrions créer une table TV{() et la trier. 


CNDS$( ) VX (.) 


DUPONT 


MARTIN 
DURAND 





Fe Cumul dans table THE 


SÜE 
Fe 








é Ce CE 





DM “ Les FH 
DA RELA ER) Le Se 


C9 BR ti 


Es Tri dé TU a gt CHD&ke 


1V=f 

FOR Iei TÙ HL-1 
CIF TE I+I Hé sTUET à THEH EE 
met TL tiT! M ‘ es 1 

MEAT I 

IF Iwsi THEH FH 





RAR ELTES EUX Lx, 


DIT 4 
BRigfir ni 


Le Eelition dé TE gt CHE 





SEA CUFOH 


Es 
44 CURAHC: 
ar MAETIH 
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Conjugaisons 


Ce programme conjugue les verbes du 1‘ groupe au présent. 


10 REM CONJ CONJUGAISON 


30 DATA JE,TU,IL,NOUS, VOUS, ILS 

40 DATA E,ES,E,ONS,EZ,ENT 

SQ REM === Lecture des DATAS 
60 FOR I=1 10 6 

70 READ PR$(T) 

80 NEXT I 

9G 

106 FOR T=1 10 6 

110 READ TERM$(T) 





120 NEXT T 

130 : c \ VERBS 
14G INPUT "Quel verbe? (ler groupe) ";VERB$ [7 
150 L=LEN(VERBS) [chan 1737 
160 VERB$=LEFT$(VERBS,L-2) 

170 : 


180 FOR I=1 16 6 
190 PRINT PR$(T);" "; 
200 PRINT VERB$;TERMS(T) 


210 NEXT T 

220 PRINT 

256 GOTO J4C 

246 ‘ 

256 ‘ run 

260 ‘ 

28C ‘ Quel verbe? (ler groupe) CHANTER. 
290 Nr 4 
300 ' JE CHANTE 

316 ' TU CHANTES 

320 ' IL CHANTE 
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LES ÉDITIONS : 


Nous présentons sommairement les cas d'édition les plus courants. 


PRINT variable 


PRINT suivi d’une variable ou d’une constante provoque l'édition de celle-ci puis d'un saut de 
ligne et d'un retour en début de ligne. 
PRINT seul provoque un saut de ligne 


10 PRINT ‘''DERUT' Saut 
20 PRINT de ligne 
30 PRINT "FIN" 





PRINT variable : 


Le ; (point virgule) empêche le saut de ligne. 


10 PRINT "DEBUT''; LE 
20 PRINT "SUITE ET FIN" . 


saut de ligne 





PRINT variable , 


La , (virgule) permet de cadrer les valeurs imprimées de façon standard en colonnes 1, 16, 
31,2. 


Coll Collé Col31 


10 X=10C:Y=15:2=5 
20 PRINT X,Y,Z 
30 PRINT X, ,2 


PRINT TAB (position) 


Place la tête d'impression (ou le curseur) dans la colonne spécifiée de la ligne courante, 
permettant ainsi les cadrages. 
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_7 
10 INPUT ‘Votre nom? ";MOMS DUPONT 
20 : DUPONT 
20 FOR A=0 TO 6.283 STEP 6.28/20 DUPONT 
40 X=20+SIN(A)x10 20; DUPONT 
50 PRINT TAB(X):NCMS DUPONT 
60 NEXT A Dore 
DUPONT 
DUPOr 
DUPORT 
Ten 4) 





Dessin d’un triangle plein : 


10 FOR L=1 TO 9 STEP 2 * 
20 PRINT TAB(2C-L/2); SE 
3C FOR E=1 TO L Her 
40 PRINT ‘'#''e ke ke kk ke 
SC MEXT E RARRIERRE 
60 PRINT 
7Q NEXT L 
RUN 

ATTENTION: 


e L PRINT TAB ( ) ne fonctionne pas correctement (pour l'instant). 


LPRIHT TAB 1545 03 ai 





affiche xxx en colonne 5. Par conséquent, il faut ajouter 13 aux instructions L PRINT TAB ( ). 


e PRINT TAB ( }) ne fonctionne pas correctement. 
Pour afficher ‘‘Jean’’ en colonne 20, il faut faire: 


14 HOMS= "DUPONT! PRE" JEAN" 
EG PRINT HOMS: SPC SG-LEME HMS à 43 FRS 


© Pour éviter la perte de caractères lors d’une édition, faire: 
14 CALL H#EDAL:LPRINT ét CALL MECCT 


© Pour lister un programme, 


ajouter: 
ë& CALL #EDAL:LLIET 16 
14 PROGRAMME À LISTER 
puis faire: 
FLIH 
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Histogrammes 


LE RER HGAT HI ESTOGEAMNE 









de Produits 
elle au Fourcentase 


RETT nor de Produits 
QE, Li PROCESS, 16, PROC, 4 





HISTS(  ) 


PROD 1 


PROD 2 


Fo Le een 







FOR Ii TO H 
TTeTT4MLETE I à 
HO HEXT I 












ik am eee 







LFETHT 
4 LFRTHT Mes 
FÜR Iei TO H 
:LFETHT re à TAEN 1541 0 ATSTE I 1 THE 
LFRIHT OURS THTÉÉMISTET TT LA 
:LPRINT TRE 15+ 








a MATETHE TI TAEN LE LE 













IF HISTE I KECH- a 1 21 THEH Eesti 
LPRIHT MI 154 
HET 
LFRIMT Mc ua a a a x 
HET TI 


a  FECDI 





LE FROIDE “14 
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1 EN HIESTOGRAMME 













24 REM Fepartition Far a 
ji DAT 
1 DATA 





LA 
ER 20-24 ans 


25-29 ans 






H c CL she OL ee 30-34 ans 


H" THEH He CL: 
Fi CL eFé CL 41 


="F" THEM 





es EST 






=1 TO £ 
CL FE CL ME THEM MéeHé CL O4FE CL à 


GDS ui 


em me ef À a een na du, 





1 THEH d4û 
ea np ï 
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Age 

20 - 24 
25 - 29 
30 - 354 
35 - 39 
4G - 44 
45 - 49 
50 - 54 
55 - 59 


Systèmes de numération : 


Ensemble 


#6 EX 
LE 
HE 
LES ES) 

XX 


HE HE DE DE DEN EE 


WNOCkEN WE N 


Hommes 
HHH 
HHHHHH 


HHH 
HHH 


HHH 


Femmes 


FFF 
FFF 
FFF 
FFF 


FFFFFE 


Pour représenter le nombre 234, nous pourrions ‘dessiner’ 234 bâtons. Mais il est plus simple 
de dire que nous avons: 


4 unités 


3 dizaines (3 paquets de 


10 bâtons) 


2 centaines (2 paquets de 100 bâtons) 


1! 
2 


Ÿ 
2100 


3 4 


+ 3x19 + 4x1 


10 représente la ‘base’. Nous pouvons tout aussi bien utiliser une base 8 : 


3 


3*x64 + 


2 
Y 
2x1 


5x8 + 


—-> 234 en decimal 


D'une façon générale, un nombre N en base B s'exprime ainsi: 


N=anxB° +an-1+8" +.....+ a1*B! + a0*9° 


1101 en base 2 est égal à: 


142% 41427 + On 2! 41e 20 > 1axñ+1xk+Ox2+1 => 13 
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10 REM convd Conversion base B --> Decimal 
20 : 
30 INPUT ‘Base? ";B 


7 sl ORDRE OC] Reste de la 
70 : 

80 FOR P=0 TO 6 

99  Q=INT (N/10) :REM Quotient 

190 R=N-(Qx10) :REM Reste: donne Le coefficient de rang p 
110 : 

120 ND=ND+(B"P)xR 

139 N=Q 

140 NEXT P 

150 : 

160 PRINT ND 

170 GOTO 59 


division par 10 


Base? 2 
Nombre? 101; 
5 


Nombre? 110 


6 


Conversion décimal en base B : 


Exprimons un nombre N sous une autre forme. 


1 
N=an*8' +an-14B"" +....+a04B° = (an*B)+an-1)*B+...+a2)*B+a1)*B+a0, 
Quotient Reste 





En divisant N par B, nous obtenons un quotient Q = (anxB) + an — 1)+B +...+ a2)+B + al) 
et un reste égal à a0. 

En divisant le quotient par B, nous obtenons un reste égal à al 

Ainsi les restes des divisions successives par la base B donnent les coefficients a0, al... an 


Exemple : 
Convertissons 13 (décimal) en base 2 
13 12 
00 —»#1 6 !2 
a ——> 0 3 !2 
5h. 11% 
RS 


1° solution : 

Appliquons directement la méthode ci-dessus. Les coefficients étant obtenus dans l’ordre 
inverse de l'affichage, nous ne pouvons les éditer au fur et à mesure du calcul. Nous les 
stockons dans AF. 
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10 REM CONVR Conversion Decimal --> Ease P 

20 : CT] 
30 INPUT "Base? ";P HE D 
40 : À CELL] * 
50 INPUT ‘Nombre? ";t , 

… S CLLT » 


7Q AF=0:D=1 :REM affichace resultat- Decalane 
80 : 

GG Q=INT(N/E) :REM Cuotient 
100 R=N-(0xB) :REM Reste 
110 : 

120 AF=R*D+AF 

130 D=bpx10 

140 : 

\150 H=Q 

160 IF Q>C0 THEN 90 

170 : 

180 PRINT AF 

19Q GCTO 50 


es * 


RUN 

Dase? ? 
Hombre? 5 
101 


Hombre? € 


2° solution : 
Nous commençons par calculer les coefficients de rang le plus élevé. Manuellement, cette 
méthode serait plus longue. 


INPUT CÉASE GE 


r. 
+ 
Us ee 

REEX) 


Lx 
ni 


LHFUT Hombre "oh 


JM En 


STEF-1 


LE 


“+, ME] 1 


ee ii 
Ti 





remit 


2 
[= 
Z 


Base? 2 
Nombre? 5 


900101 
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Hexadécimal : 


Pour la conversion en base 16, il faut définir des symboles pour 10, 11, 12, … 15. 
Choisissons À pour 10, B pour 11, … 
Pourquoi l’hexadécimal est-il utilisé en informatique ? 


Il permet de représenter de façon plus concise les nombres binaires ; en effet, à chaque chiffre 
hexadécimal, il correspond 4 chiffres binaires : 


C 3 A 


14 A$="ÿ123456789ABCDEF" ' Ÿ ' 


114 PRINT MID$(A$,Q+1,1); Douoo [oo | ro10 | 


Nous pourrions également faire : 


5 DIM 5$(16) 

14 DATA 0,1,2...A,8,C,D0,E,F 

28 FOR 1-1 TO 16 : READ S$(I):NEXTI 
118 PRINT 5$(Q+1); 
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ADRESSAGE DIRECT 
ÉCRAN 


PLOT X,Y,«Message » 


L’adressage direct écran permet d’afficher un message à un endroit bien précis de 
l’écran (sans affecter le reste de l’écran). 






10 
_—. | 
28 PLOT 5,10,'MESSAGE" Ê 


MESSAGE 


Enseigne lumineuse : 


Ce programme fait défiler un libellé sur l'écran. La vitesse de défilement dépend de la 
temporisation choisie. 


DCE 


3 FEN EHSETGHE 


24 CLS 

29 L#="ECITIONS CU FAST... us u 

44 : 

Eû LAIT El PSI. ÉDITIONS 
F4 LeLEHELé 5: LSeRIGHTS LS, 14LEFT#E LH, Li — 
34 GOT SE 
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Tir sur cible 


Une cible traverse l'écran de gauche à droite. La frappe d’une touche quelconque provoque un 


tir du bas 


de l'écran vers le haut. 


X 
TIR (XT, YT) 





En appuyant sur ‘G’ ou sur ‘D, la trajectoire du tir est à —45 ou +45 degrés. Plusieurs tirs sont 


possibles. 


MN EG 
ana 


REM TIR SUR CIBLE 


CLS :DF=4 





MCsliéles:#Ceé: PLOT 40-10 AE" 

AT=2d Ter: UTe- 1: PLOT ATAYT UE" 

ASSKETS:IF #$ =" THEH 124 :REM Attente deFart tir 
CF=1:A=fA :REM Anale tir nul 


IF X$="G" THEH Az-,25 
IF x$="D" THEH A=,25 


IF YT£YC THEH XT=2@:YTe15:VTe-1:PLOT HT TT, "x" 
REM Avance cible me 
FLOT HC-1,%0," :REM Eff ancienne cible 


#HC=HC4+NC 

PLOT #01, CAE" 

REÏT ESS ssSSssnessemms Aanee LE SRE ss 
IF CPeÿ THEH 23% 


A PLOT &T,YT," " 


IF YT<YC THEM 239 

NTSYT ANT ATSUT4R PLOT AT, YT, 4" 

IF XC=>36 THEN PLOT 1,29, "PERDU" :UAIT 329:GOTO 38 
IF YT=YC AND XT=>KC-1 AND XT<=XC+1 THEN EXPLODE : END 
MAIT 5 

GOTO 78 
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SAISIE D'UN CARACTÈRE 
AU CLAVIER 


L’instruction INPUT ne permet pas au programme de vérifier la frappe des caractères au fur et 
à mesure de leur frappe mais seulement après que l'opérateur les ait validé par la touche 
<RETURN> ou <ENTER>. 


L’instruction KEY le permet. 


KEYS$ 


Lit le CLAVIER EN PERMANENCE. Si aucun caractère n’a été frappé, la chaîne lue (C$ 
sur l'exemple) est vide. Le caractère frappé au clavier n’est affiché que si le programme l’a 
prévu (et non pas en ‘local’ par le clavier comme c'est le cas avec INPUT). 


Test chaine vide 


15 CLS F ‘ Efface l'E 
29 CHeFE TS: IE Cé="" THEN 24 ‘ Boucle d'attente 
(50 PRINT Cé: 

48 GOTO 24 

















RUN Les caracteres sont 
affiches par l'instruction 30 
AVERT Vg—— 

Le programme ci-dessous affiche le caractère dont le code est celui du caractère frappé plus 1. 
18 CLS ‘ Efface 
PA CHE VS: IF Che" THEN 24" Boule ‘d' 

( 34 PRINT CHEGé ASC CS 41 
46 GOT FA 
RUN Vous avez frappe 
AVERTY | 
SWF SUZ 


Celui-ci n'affiche que les caractères compris entre «A» et «L». 





14 CLS 

LA Chase: IF Che" THEH 24 

34 IF C$<"A" OR CSi"L" THEN EM 
44 PRINT CH: 

SA GOTO ZA 


RUN Vous avez frappe 
AVERTY 
AE 
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Boucle d'attente 


Attend que l'opérateur appuie sur une touche quelconque. 


A, 


18 HekKE VS: IF H$e"" THEH 16 * Boucle d'attente 
24 PRINT "C'EST PARTI" 


ne 


4 FRIET Répondez CH boites! 
1 He 












du RésEE VS IF RS 


MOT OTHEH 166 
SA HEH+L CIF HET THEN FEIHT °Trof Lar de ST 
TS sua CA] 
FE 


LA MEN suite 


GET caractère 
Lit un caractère au clavier dès sa frappe. 


Celui-ci doit être affiché par le programme. 


Affic he ri 
A9 GET C$ sh tére frappé 
fo PRINT ASC(C$); al ——— 


30 IF C$="F" THEN 109 
\49 GOTO 10 


50 : 
100 END 
Code de B 
nn lonndter doute 
#7 sur: RETURN 
# £ (code ASC IT 13) 
70 F 


En voici un second exemple : acquisition de nombres. 


Ce programme n'accepte que la frappe de chiffres. Si, par exemple, l'opérateur frappe une 
lettre, celle-ci n’est pas affichée et la sonnerie est activée. 

Les caractères validés sont concaténés dans une chaîne L$. 

Dès que l'opérateur appuie sur <RETURN> (code 13), le programme s'arrête. 


ATTENTION : le programme présenté ne ‘gère’ pas le caractère d'annulation ‘(Code 127 
Celui-ci est concaténé à la chaîne L$ comme les autres caractères. 
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19 Saut 
20 GET C$ L$ C$ 
30 IF X$<'"'O'" OR C$>'"'9'"" THEN PRINT CHR$(7);:GOTO 20 ; 
CA 3 4 
4O IF ASC(C$)=13 THEN 109 :REM retour chariot? EI 
50 PRINT C$; 
60 L$S=L$+CS 
70 GOTO 29 


190 PRINT L$ 
110 PRINT VAL(LS$) 


314 PRINT LS 
314 


314 


Saisie d’une ligne avec GET. 
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FEN SAISIE L''UHNE LIGNE AVEC GET 
CLS 






LiGg='"" 

GET C$ 

CEA C$:LeLENELIGS 05 

IF C=s135 THEH FRINT:GOTO 24% 


IF C<+1£r THEH 129 :REM 12YSDEL 

IF Li THEM LIG#SLEFT#LIGS,L-15: PRINT CHR&C IE 3 GÜTO SA ELSE 
IF CLé3E THEH FIHG:GOTO 54 

LIGS=LIGS+CS 

PRIHT C$: 


GOTO 54 


PRINT LIGS 


Duo PÎUE raFide 
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LES NOMBRES ALÉATOIRES : 


Les nombres aléatoires sont essentiellement utilisés pour les programmes de jeu ou 
d'éducation. 


RND(X) pour X > 0: 
Fournit un nombre aléatoire compris entre 0 et 1 (1 exclus) 


19 PRINT RND(1) 
20 GOTO 10 


Appuyer sur 


RUN - CtriC > 


pour stopper 





-.212 
-053 
.67 


BREAK AT 10 
Lors d'un second 
< RUN : la série est 
RON différente 





2.082: 51 23407: 
Pour obtenir des nombres entiers entre O et 9 par exemple, il faut : 
e multiplier le nombre obtenu par 10 
® prendre la partie entière du résultat, avec la fonction INT (X) 











19 X=RND (1) 
20 Y=Xx10 
30 Z=INT (Y) 
40 PRINT REN 
‘50 GOTO 190 
Donne la partie 
entière de y 
RUN (PRINT INT (2.12) me 2) 
.212 le. ve 
.053 0.53 0 
.67 6.7 6 
4 À L 


RND (1) RND (1) # 10 INT (RND (1) X 10) 
Pour obtenir un nombre entre 1 et 10, il suffit d'ajouter 1. 


10 FOR N=1 TO 3 

20 PRINT INT (RND(1)x10)+1 
30 NEXT N 

RUN 


3: 1 19 
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RND (X) pour X < 0: 


X négatif initialise une série aléatoire qui dépend de la valeur de X. Cette série est toujours la 
même pour une valeur de X. 


19 X=RND (-2) 

20 REM ——--=---—-- 

30 FOR I1=1 TO 3 

40 PRINT INT (RND (1)x6+1 
50 NEXT I 


RUN 


24 3 | 

Méme séries 
RUN dd 
243 


Sans 10 X = RND (-— 2), la série aléatoire après le second ‘RUN’ aurait été différente de celle 
obtenue après le premier ‘RUN. 


RND (0) 


Fournit le dernier nombre aléatoire. 


10 FOR I=1 TO 3 
29 PRINT RND(1) 
30 NEXT I 


RUN 


.12 7 


fran RND (0) 


Donne le dernier 
.1è nombre aléatoire 
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Divisions : 


Ce programme choisit 2 nombres au hasard, les affiche à l’écran, attend en réponse leur 
quotient puis vérifie que le résultat est juste. 
Le niveau de difficulté est choisi au départ. 


10 REM DIV DIVISIONS 

20: 

30 INPUT ‘Dividende maxi ? (ex 1900) ‘"';DV 
40 : 


50 X=INT CRND (1)xDV) +1 
69 Y=INT (RND (1) xDV/10)+1 


30 PRINT:PRINT ‘Quel est Le quotient de ";X;'"'par'"';Y; 

99 INPUT " Votre reponse? '';REP 

100 IF INTCX/Y)=REP THEN PRINT:PRINT "C'est bon'':GOTO 50 
110 : 

120 PRINT:PRINT ‘Le quotient de ‘"';X;''par'"';Y "'est'"'; INT (X/Y) 
130 GOTO 50 

RUN 

Dividende maxi ? (ex 1909) An 

Quel est Le quotient de 45 par $ Votre reponse? ? > 


C'est bon 


Le reste se calculerait par: R=X-INT(X/Y) 
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CHOIX DES: COULEURS 


Les couleurs du fond de l'écran (BACKGROUND) et la couleur des caractères 
(FOREGROUND) se choisissent à l’aide de PAPER et INK. Les numéros de couleur sont 
compris entre O et 7. Au moment de la mise sous tension, le fond est blanc et la couleur des 
caractères noire. 

En frappant PAPER 6, le fond devient bleu clair. 


noir 
rouge 
vert 

jaune 
bleu 
violet 
bleu clair 
blanc 


IOURB ON = © 








PAPER 6 
RS 


Le fond de l'écran 
devient bleu clair 





INK 1 
My 


Les caractères 
deviennent 
rouges 





INK et PAPER s'appliquent à l'écran entier. Nous verrons plus loin comment choisir une 
couleur de fond pour une partie d'écran seulement. 
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GRAPHIQUE 
BASSE RÉSOLUTION 


LORES 0 
LORES 1 
PLOT X,Y,chaîne 


En graphique basse résolution, l'écran est divisé en 39 x 27 points 


Les 2 modes LORES 0 et LORES 1 permettent d'afficher respectivement le jeu de caractères 
standards et le jeu de caractères dit alternés (ou semi graphiques). 
Par exemple, À en alterné devient: = #. 


PLOT X,Y,chaîne : 


14 LÜRES 4 
24 PLOT 15,164, "COUCOU" 


39 (0-38) 
COUCOU 


27(0->26) 





PLOT X,Y,code caractère : 


Les codes 17 à 23 permettent de dessiner des fonds de couleur. 
14 LÜFES 
24 PLOT 15.18.47 
*X___7 


Différentes couleurs 


16 noir 

17 rouge 

18 vert 

19 jaune 

20 bleu 

21 violet 

22 bleu clair 
23 blanc 
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En choisissant LORES 1, on obtient à la place du caractère «A» le caractère #5 


ÛRES 1 
LOT 15.14, "A" 


F 
5 2 
Eu c 





Accès au jeu alterné en LORES 0 
En LORES 0, on accède au jeu alterné à l’aide de CHRS(8) 


14 LÜRES & 
24 #$=" AAA" 

34 ME=CHRSE 9 + AAA 4 CHR E à 

44 PLOT 14,15.:#$ 

5 AAA 


FLOT 14,16,M# 
_,.,, 


Sur LORES 1, l'accès au jeu de caractères standard se fait ainsi : 


ee 1 
# El U AAA LL 
ft= CHRGE EH CHE 9 à 


FLOT 14,15.%% 
=, 


FLÜT 14,16.M% 


ARTE ELA E Lx 


a 
A 


nm £irie 


AAA 
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Pavé 


Nous simulons une chute de pavé partant du haut de l'écran, le pavé est successivement 
dessiné puis effacé 


9 REM 


Lt 
15 
en) 
£a 


34 


LÜRES 4 


FOR el TO 16 :FLOT #: 


FOR I=1 TU 


FLIT %: 
FLIT ©, 


WAIT 5 
HET I 
EXPLOCE 
GOTO 36 


meme, PRQUE mcm 


REM Cessin bas 
Et iF MEET 


MEN Efface 
:RENM Fave rouge 


Ciel étoilé multicolore 







Ciel étoile multicolore 


=RHDE 1 125 
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La balle qui rebondit : 


Ce programme fait rebondir une balle entre 2 murs. 


S REM --- La balle qui rebondit —-- 


Œ 


LORES 6 

FOR Y=1 TO 29 
FLOT @,Y,2@:PLE 

HEXT 


—, 


OR ELT EX 


ur 


#A=14:%=1f 
MITESSES=-1 
+ TTESSE 
34 IF ci OF 5° THEH 156 
144 : 

114 FLOT #17 

124 PLOT #,% 16 

134 GOTO #6 

144 : 

159 VITESSE=-YITESSE 

164 FIHG 

174 GOTO 66 


LEE 








LOUIJMEIL Se 


D 
se 
Ë 


Celui-ci fait rebondir la balle entre les 4 murs. 


14 REM EILLAFD 





FLOT X,YE 26 
74 : PLOT X,YH, 20 
B9 HEXT 


x 


3 


FOR Y=YE TO YH 
PLOT XB,Ÿ,24:PLOT #H, 1,20 
HEXT 


ee 
ii 
= 


AREA EL ERA 








ai 


1:Vr=1 






CIF 
DIF YF 






HH-1 THEN V3 
SFH-1 THEM 


RENE 
4 
EL 





x 
ni 


FLOT GPS, 15 
MAIT S 
FLOT #P.YP 16 


à 


For ee ii OÙ JS Mn RQ ro 
Sn E 


MPa PURE PPT 
234 GOTO 176 
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E—> 














BE IHTE RHDE 1 EG 41 YF TEINTE RHDC 1 DE 141 






Ms FT HE : GÜTE 
FIHG: GOT 








Squash 


Une balle rebondit sur 3 murs. 


Le joueur doit la faire rebondir sur la raquette qu'il déplace avec les flèches 7 | 
Remarque : Nous aurions pu inverser VX et VY à chaque rebond en faisant VX = —VX et VY 


= —VY. Mais pour des raisons d’arrondi, il pourrait se produire des faux rebonds. 











< \l =1 

Balle 

(XR. YR) [| K XB, YB 

| A 
“ 
K 
| 

Raquette / 

pour déplacer x # 











N 
se 
Il < v2 - 36 


RE ALLÉE MU UE | | 


CMS ES 5 













REF Frog evoneg Fos À EL 


El: GUTU LEE 





2156 THEH IF YRSY1+1 THEN Rs 
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Tir sur cible 


Voici un programme de tir. Cette fois la cible est fixe et le tir mobile (CHAR par exemple). 
L’angle de tir est de 45 degrés: il pourrait être changé en modifiant la vitesse UT. 


/ \ 45" 
= ANGLE 


TIR MOBILE DE TIR 
(XT, YT) FIXE 





19 REM = TIR SUR CIBLE 


Of tRENM mode GraFhique 






45 AE =TNTERNDC 1) ES +50: Ces 


54 PLOT &#C.YC.1r 
SA UT] ‘FEM vitesse tir 
50 | nd Le RENM cocrdonnegs tir 


:RENM efface ancienne Fogition 
" REM ancienne Position 

[THEN FLOT 14.14, "RATE":UAIT 464: GOTO Z@ 

THEH PLOT 18,14, "RATE":MAIT 4Gf:GOTO 24 

LC AC YCSYT THEH EXFLODE : FLOT 16,16, "GAGME" : EH 


158 “&= ÉEYS:IF H@e SU THEN DPel:ZAF :REM Depart tir 
164 IF DP=f THEH SE 


189 YT=YT4UT 


24 AT=4T+1:GOTO 34 
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Télécran 


Principe : 


En appuyant sur les flèches | <—, vous déplacez un «point » qui laisse une 


«trace» sur son passage ce qui vous permet de dessiner «manuellement ». 
Si vous avez appuyé sur « L», le déplacement s'effectue sans laisser de trace, permettant ainsi 
de dessiner une figure en plusieurs parties. 


Améliorations possibles : Enregistrement du dessin dans une table pour duplication avec 


échelle. 


Dot) 


DO -JMUN Lili li me 
GORDON 


om 


— — 
EN TELECFAH 

LORES ä 

#=18:"=1f :REM Coordonnees dePart 


FLOT 34,18, "B:ERISSER" 
PLOT 39,19,"L:LEVER" 


CH<KETS:IF Che" THEH 154  :REM Attente fraPre clavier 






FLAT #17 
4 FLOT #,%:16 :REM Curseur clignotant 
GOTO 1e 
IF Leÿ THEH FLOT K.,%.1F REM Allume en rouge 
ji C=ASCY Ci 
IF C=8 THEH IF #29 THEH :REM Gauche 
IF C=9 THEH IF 4€ 38 THEH ; :RENM Croite 
IF C=19 THEH IF Y<24 THEH ‘+1 
IF Czi1 THEH IF Y:9 THEH Yazr-1 
IF Cé="L'" THEN Lei :RENM Lever 
IF Cé="E" THEH L=f :RENM Baisser 


GÛOTO £5 
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GRAPHIQUES 
HAUTE RÉSOLUTION 


HIRES — TEXT 
CURSET X, Y, couleur 
CURMOV DX, DY, couleur 
DRAW DX, DY, couleur 
CIRCLE rayon, couleur 
POINT X, Y 
PATTERN X 
FILL hauteur, longueur, couleur 
CHAR code, jeu caractère, couleur 


L’instruction HIRES permet d'accéder au mode ‘haute résolution’ 
Le retour en mode normal (TEXT) se fait par l’instruction TEXT. 
En haute résolution, l'écran est divisé en 240*200 points. 


HIRES ïnitialise la couleur background (de fond) en noir et la couleur foreground en blanc. 
3 lignes sont réservées pour le texte en bas de l'écran. 


—— 240 (0239) —>> 








Ï 3 lignes de texte 








CURSET X,Y,type couleur 


Le positionnement du ‘curseur’ se fait par CURSET. C'est un positionnement en absolu. 
‘type couleur’ peut être égal à O0, 1, 2, 3. 
Pour ‘type couleur’ égal à 1, CURSET allume le point spécifié. 
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100 
10 HIRES 


20 CURSET 120,100,1 1, 


LE POINT 
S'ALLUME 





Pour revenir en mode texte, nous frappons en mode direct : 


TEXT 





F 


Nous développerons plus loin la notion de ‘type de couleur’. 


DRAW DX,DY,type couleur : 


Trace une droite à partir du point courant (position du curseur). Les paramètres DX et DY 
spécifient des déplacements relatifs au point courant. 


Point 
courant 





10 HIRES 
20 CURSET 120,100, 1 
30 DRAW 50,50,1 






Nouveau 
point 
courant 






DRAW 50, 50, 1 





Le point courant devient (120 + 50), (100 + 50). 
En ajoutant au programme : 


40 DRAW 20,0,1 


On obtient le tracé suivant. 


DRAW 20, 0, 1 
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TEXT permet de revenir au mode normal. 


Par exemple, dessinons un carré : 


10 HIRES 

20 CURSET 100,190,1 
30 : 

40 DRAW 50,0,1 

50 DRAW 0,50,1 

60 DRAW -50,0,1 

70 DRAW 0,-50,1 


Et maintenant... un escargot : 









DE He TO G£lé STEF € 


CAL H .f ‘1 
| à M4 1 

Hd, «1 
GEAM am H+é 1, 1 





14 HET H 






1 THEN Ci 
El THEH C 
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Types de couleur : 

4 types de couleur peuvent être spécifiés dans les instructions graphiques : 
— Foreground (1) : DRAW 50,50,1 

Dessine avec la couleur foreground (choisie par INK couleur) 


— Background (0) : DRAW 50,50,0 


Dessine avec la couleur de fond (choisie par PAPER couleur) 
Peut servir à effacer un tracé fait en couleur foreground. 


— Inverse (2): DRAW 50,50,2 


Dessine en couleur inverse : 
e Si le tracé n'existait pas, il est fait en couleur foreground. 
e Si le tracé a lieu sur une zone déjà coloriée, il se fait en couleur de fond. 


— Nul (3) : DRAW 50,50,3 


Ne dessine pas. 
Ci-dessous, nous dessinons un anneau de la façon suivante : 


e Nous dessinons d’abord un petit rectangle en couleur foreground. 
e Nous superposons un grand rectangle en couleur inverse. 
Le rectangle central est ‘effacé’. Ainsi, il reste un anneau. 


(Nous aurions pu également dessiner le rectangle central en couleur de fond après avoir 
dessiné le grand rectangle). 





: On dessine 
1] d'abord un 
/] petit rectangle 
- Petit rectangle couleur Foregrcuve 
SALE, 1 
me Grand réctanale couleur inverse 





Le 2 rectangle 
efface le premier 
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CURMOV DX,DY,type couleur : 


Agit comme CURSET X,Y,tupe couleur, mais les paramètres spécifiés sont des déplacements 
relatifs au point courant. 


CIRCLE rayon,type couleur : 


Trace un cercle dont le centre est le point courant. 


10 HIRES 
20 CURSET 100,100,1 
30 CIRCLE 50,1 


Pour tracer un cercle plein, on fait: 


10 HIRES 

20 CURSET 100,100,1 
30 FOR R=1 TO 30 
40 : CIRCLE R,1 

50 NEXT R 


On pourra ajouter : 





LS HE 
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Cercles aléatoires : 


Des cercles de rayon aléatoire sont affichés aléatoirement sur l'écran. 


14 HIFES 

15 IHK3 

4 : 

34 FOR He1 TO 24 

4@ : X=RHDC 1 °#209+20 

59 + Y=RHDC 1 150420 

F=1@+RHDE 1 10 

CURSET #, 4,6 
CIRCLE FR 1 

HEXT H 


SE Èn 





Drimin 


Der En 


Cône : 


Dessine un cône en perspective. 





15 
Fa: 
3 FOR F=5 TO 5 STEF 4 





Eù : CURSET ZA+R, GARE, 1 
Fg : CIRCLE K.l 
249 HET FE 
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Croissant de lune 


Un dessin de lune est obtenu par superposition d’un cercle en couleur BACKGROUND sur un 
cercle en couleur FOREGROUND. 





S E ne 
NC PAS 

5 REM LUHE \ k 
6 : ; ! Cercle plein 
H MIFES:IHKS / en couleur 
+ Pipes IH A SA is 
EG FEM Cercle Plein PTT SE 
SE Bed QE: Gel AE: Res: Ce: GOSUE 195 
46 : Cercle plein 
45 FENM Cercle en couleur de ford en couleur 
SA AGREE: Ref l ei: Cab: GOGUE 135 foreground Il reste une lune 
El : 
154 EHC 
LARG FEMeeeeneeneemmmce  TRACE C'LH CERCLE FLEIH 
195 CURSET “4,9, C 
2464 FÜR “ei TO K 
1 CIRCLE #C 
Se HEAT # 





Es4 RETURH 
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Chat 


R 


Din es pe Min 
SUR ee 


[a] 


Qfimemmn re 0 0 Où 0) Co Or 
St CA Le Co Pie 19 QG 00 4 Mi CN BR 9 


216 





EN CHAT DA 


HIPRES 

IHK3 

REM muse Cercles :centresrans cn 
DATA 144.:86,14  :RENM Yeux 

DATA 144,54, 164 

CATA 124, 104,54 :RENM Tete 

DATA 120,145,%  :REM Wez 


DATA 4 
DATA 4f. 
DATA 4 


PEN Moustaches 


DATA 124,125 :REM Ecuche 
DATA 14,-8 


CATA 
DATA 5,46 


: DATA £4, 4fi :RENM Oreilles 
{ a 


CATA 166,48 
DATA -12.17 
DATA 5,44 
RENM me Tete EU NE eee 
FOR Fzi TO à 
: FEAD %,%.8R 
CURSET #,%:1 
CIRCLE R; 1 
HEXT F 
RENM Mougstaches 
FOR M=1 TO 3 
FEAC Ci, D 
CURSET #,%, 
CRAU Cé, Ov,1 
CURSET #1 
CAM Cités 0, 1 
HE: IT M 
RENM Bouche ue ue ae eve ou me me musee 





A FEAD #7 


FEADG Dé, D 

CURSET 43%, 
CRAN Ce 
CURSET 
CAM Ci 
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Oreilles em 





24 DEAN LC 

A CURSET #7. 
45 READ Cx,0T 
4E@ DRAM DK, CT, 1 


434 READ #." 
349 READ C 
314 CURSET “1 

Se REAC Dé, O:DEAM Ci, Cr. 1 
1044 GET 4% 

1HE4 TEXT 


CURSET # 
: DRAM 
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Ours chic 





a RE QUIFS CHIC 





ca PEN-- - 
25 #9=164: "TE 
39 CURSET #8 
FOR = 
F'EN 
CURSET %E 
FOR K=i 
CURSET 
OF: = ‘To ” HET F 

RE co  LETE À À 
CURSET ." 
FOR Kzi TO 5  CIRCLE F U:HEXT K 

REM = gi mn nn 
CURSET 9-16. %4-18, 1 

FÜR Fzz TO S:CIRCLE FA:MEST & 





(CIRCLE FL: HET EF 


nm DRE Lies ee 





:MEST F 


2. 
x] 





DRE 


Tinbe be bé pe be be pe He Lt OÙ SE 
DO JU LE Lie © Ge 
Lac EX 
n 
mn] 
1 
1 





CURSET £6+16, "4-16, 1 

FOIE Re TO S:CIFCLE F:G:HEËT F 

A mn PaPillon 

FÜR es TO & 
CURSET #6, 
CLRSET “6,7% 

HET 





FAN 15,1 


A+ D 
(a) DEAN +15. 1 


G CURSET “4-1, 8416, 4: DRAU mc 
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Ours jumeaux 





14 HIRES:IHES 


15 : :REM CEHTRE“FATON 
29 DATA 129,16@.56 ‘REM CORFS 

36 DATA 124,38,30 ‘REM TETE 

44 DATA 35,145,18 :REM FATTES 


59 DATA 155,148,18 

64 DATA 5@,64,13 

Fa DATA 169.64, 13 

868 CATA 35.14.7 :REM OREILLES 
36 CATA 145,16,F 


149 DATA 187,20,5 :REM YEUX 

119 DATA 133,29,5 

128 DATA 126,30.6 :REM MEZ 

139 RE 1EF OURS 
149 FOR F=1i TO 11 

159 :  READ X1:Y1,F 

168 :  CURSET X1-50,%1,1 

179 :  CIRCLE F:1 


= 


HEXT P 
CURSET 65: 4,3 
CÉAU 5, +2, 1:DRAN 5-2, 1 
REM------- ee ZEME OURS 
RESTORE 
FOR F=l T[ 11 
READ #1,%1,F 
CURSET 1454, 71,1 
:  CIRCLE Ki 
HET F 
CURSET 165, 42,3 
CRAN SE, LiDEAN SE, 1 


EE 
5 © Où 0 C6 D Où D 4 
GO -JU LU Gi JM 
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Dessin d’un cube : 


Les composantes de 3 vecteurs sont stockées dans 2 tables DX () et DY (). Nous calculons les 


coordonnées des différents sommets à partir desquels nous traçons les arêtes. 


REM DESSIH C'UH CUBE 


Fin Min 
TEL) 








5 REN a Sommet en binaire meer 

96 FOR Se TO EE HC 1 

‘HeS 

FOR I=HC-1 TO 4: 
FETU=IHTIH 
H= HP TOILE 








. Sommet 





FOR 126 TO HO 
IF PéL=@ THEN 218 





: A] A EA 
:MEAT I 
REM eee memmemnse TRACE des arekes 
FOR Is TO HD-1 
IF FéI: 
CURSET : 
DRAM Cisc 
:MEAT I 
PRINT M£e"is Po gi, Pl FPE 
HAIT 244 
MEAT & 





Dessin aléatoire : 


Des points sont choisis au hasard. Nous les relions entre eux par des droites. 


5 SE DESSIH ALEATOIRE 
Ë 

14 HIRES 

15 IHES 


17 CURSET 16.164.1 

24 FOR F=1 TO 59 

34 AS IMTERHDI 1 24156 +16 
44 : = IHTE FMDE 1 CE LSE 





56 : DRAM HA, VA, 1 
ED : XX: Ye" 





Fa NET F 
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Dessin avec échelle : 


Dessine une figure définie par des déplacements successifs. 
En adaptant l'échelle, on peut reproduire le dessin avec des tailles différentes. 


Echelle 1 
X0, YO Echelle 5 


DÉPLACEMENT = 
DY DX 


LOU :REM ES HS CESSIH AVEC ECHELLE —-- 


39 DATA G,19, 19,4, G,24, 19.4 
44 DATA H.-16, 29,9, 6,14 
59 DATA 164,G, G,-24, 3,4, 
68 DATA -5.4, G,+3 ,-30.4, 


_" 


-1a 


E LRU] 


AE HIRES 5 IHK 3 

8 #9=59:"4=54:ECH=1 

f GOSUE 254 :REM ler dessin —--- 
34 

[c 


RESTORE 


MENNESOUE 


mms pa be Li 
cn 
Run 


#D=124:TE ï > 

166 GOSUE 258 :RENM Zeme dessin —-— 

174 GET #“$ 

184 TEXT 

134 EHC 

2AG RENM ---- SOUS PROGRAMME DESSIN ee ce can ne m 
224 : 

256 FOR Fz<1i TO 1944 

260 :READ Lé:READC CY:IF Dx=99 AND DY=as THEH 324 
er :#1=0x#ECH 

284 :Y1=0DY#ECH 

299 :CURSET #6. %@4.1:CDRAM #1,%1:1 

344 :#G=# +1 : "ae E+ 1 

314 HEAT P 

324 RETUEH 


Les figures dessinées par ce programme ne doivent pas présenter de discontinuité. 


Pour ajouter un œil au chien, nous pourrions indiquer qu’il y a discontinuité en codant 0,0 dans 
les DATAS : 


75 DATA 0,0, 10,3, 3,0 
76 DATA 0,3, -3,0, O,-3 


, 


265 IF DX=0 AND DYV=-0 THEN READ DX:READ DY:X0=X0+DX*ECH:VYO=VO+DY*ECH:GOTO 
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Super télécran : 


Nous reprenons le programme Télécran basse résolution en y ajoutant 4 autres directions. Les 


chiffres 1, 2, 3 et 4 servent à déplacer le curseur en diagonale. 


Naturellement, on pensera à utiliser la touche « REPEAT ». 


8 directions 





14 FEM TELECFAH € HAUTE RESOLUTIOH 


15 FEM & Cirections: à flechest 1 ZE 4 


25 HIFRES 
34 e140: el :FEN Coordonnées deFart 


:REM Gauche 
:FEN Croite 





IF C#="L'" THEH 
IF C$="E" THEH 
GOT 64 





Fr 


DOG ODNL TO SR GR SGEI,S 


Li Poe 0 0 D QD 09 3j CM B Lu lo 


Di PQ PQ PQ Es Des D et tt et et Det bb es Det pt 
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Evitez l’obstacle! 


Un point se déplace à travers des obstacles. Vous devez adapter la direction pour éviter les 
obstacles. 


FEN DESTACLE 





HIRES : IHKE 

INPUT M"HIVERL Cligssù "iM 

IF He THEH Hx1 

RE = eme nee von vu ve me ne nu ae me ne me me (gp 
CURSET 15,151 

1 DEAN 248.0, 1 

GEAH 4.156, 1 

56 DRAM 2606, 61, 1 

74 CEA &,-1586, 1 | Utiliser les flèches 
DA RE en nnmmnnnnee CNE EC LE | —— pour définir la 
198 FOR F=1 TO H#10 direction 
TL? OS EME 

126 =RHDE À 4140420 


Li PP Po Po nm 
DIM 


D do Po Po Po Fo fa 
RARE: 





en 
ERA] 





ME 








5 CURSET #+1,%,1 
154 : CURSET &, 41,1 
F1 CURSET +1, 41,1 
fi HEST F 
4 REM mme Copdonges départ 
F 
fi 






HD 1 SH 1 GE LE 
HO 1 2 K140+E cf 
IF RER .ïas-1 THEH 266 
EF], ee Htténte def art 








HUM THEH GOSUE 26G:GOTO 315 
#1 UAIT 14 
vs E 


=11 THEH 
THEH 
THEH 







RETURH 
A BÉMesse eue due uen nl thé si 
F'=11 


0 C5 PQ Po PP Po Pi To P 


CGekENS: IF CREEUN THEN GOSUE 26 





ant ra NS 


sm 1 THEN 4 





GÜTO : 





PÉMasmeness sens roue eee 
EXPLODE 

PRIHT F3 "PCITHTE" : 

WAIT SAG:GOTO ES 


OCR ER ELU E: ELRE RTE 
Ii 1 


For Gi in E 


BB Ridis ii it 


fs 
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Tracé de cercles ou d’ellipses : 


Un cercle peut se tracer point par point ou par segments de droites. 
Naturellement, le tracé est beaucoup plus lent que s’il était effectué directement par une 
instruction BASIC, telle que l’instruction CIRCLE. 


Nous calculons les coordonnées X et Y d’un cercle de rayon R par: 


X=R%COS (ANG) 
Y=RXSIN (ANG) 


En faisant varier ANG de 0 à 6.28 radians. 


Pour une ellipse, X et Y sont donnés par : 


Y - D X SIN (ANG) 


X=(L/2)%C0S (ANG) 
Y=(H/2) xSIN (ANG) 


19 REN ELLIPSE 
za 

36 HIRES : IHK2 

48 HD 1 AU: Ge 1 EE 

SD L=160:H=198 

64 

199 FOR ANG=Q TO 2#PI STEP. 1 
116 5x0 «LE KCOSE ANG à 
DS THE AHG D 





139 : CUR SET Hs 
149 HEËT AHG 
154 : 

169 GET #x5% 

174 TEXT 





En faisant H = L, nous obtenons bien sur un cercle de rayon L/2. 
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Tracé de figures inscrites dans un cercle 


Nous présentons ici le tracé de figures inscrites dans un cercle ou une ellipse (triangle, carré, 
losange .…) 
triangle : 








CRE Honmbee de 








pe bb pe pue por pe pe pe pe be à 
" LE mn À D Ë 


re 


Carré : 
Il suffit de faire : 40 NCOT = 4 





losange : 


39 L=50:H=89 

4O NCOT=4 

59 G0SU8 190 

51 

52 L=L*x.8:4=Hx.8 
54 GOSU3 109 
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Rotation d’un carré : 


Dessine un carré qui pivote sur lui-même. 


18 HIRES:IHK2 

20 #9=190:"0=190 

36 H=134:L=104 

46 HCOT=4 :RENM Hombre de cotes 
59 FOR RT=<G TO PI-2 STEP PFI-14 

52 : GOSUE 198 

54 MEXT RT 


55 END 

60 : 

DD REM-—-— SRG nn 
149 XASHOHL/SHCOSC RT 2: VA=YB+H SES IHERT D 

119 : 


128 FÜR Cz1 TO HCÛT 

125 : AHG=C#2#PI/HCOT 

1359 : A=#D+L/-Z2#COSC ANG+HRT 
148 : ‘= YG+H ZLESIHC ANG+ERT à 
145 : : 

159 : CURSET “#A,%A,1 

155 : DRAU #4, "TA; 1 

164 : AAA: TA 

179 HEAT C 

159 FETURH 
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Tracé de courbe sur ECRAN : 


Voici un programme de tracé de courbe Y=f{X). 
Nous recherchons le mini et le maxi de Ÿ : Y1 et Y2 puis nous calculons les échelles pour X et Y 


de façon à utiliser au mieux la dimension de l'écran. 


HECR 40 








<< 
LECR - 120 
M FEM TÉACE DCE COURÉE 
A : 
HEC FE 156: LECRS256 MEN Hauteur’ longueur gra 
INPUT MÉÛRHE #1 "El 





IHPUT "EDRHE K2 "ec 
INPUT "PAS "PAS 


D M CN BR ère 


DR ENTER E LE LR EUX, 





ni 

Om 
Age 
a 
D'e3 
L 
“ni 3 
a 
LL 
ie 
ï 


FOR rl T0 RE STE FAS 








54 

14 GOSUE 234 

11H ; :REM Mini 

124 :RENM Maxi 

155 

135 à 

145 

154 ; :REM Echelle x 

168 CN :REM Echelle “ 

174 à mon UE monune 

188 IF Vées@ THEN IF “list THEH Y=HECR = ABS NL CHEN CUREET 1% 1: CRAN 
LECF, 4, 1 

196 IF Es THEN IF Eli=fg THEN ÆsABSCETTHEX : CURSET #1: 1'ORAN HE 


CF. 1 

DAE REP eee 

FÜR #eE1 T0 EX STEP FAS 
 GÜSUE 236 





El 1KEX 
‘5 HECR 4 Y$E" 
: CURSET Si Evo 
MEXT 


PRINT "Eee" El; "Bet EE: MINTe "il MAIS MINE 
GET #$ 

TEËAT : EHD 

FEM ne COUDE 4 FACE 
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Quelques dessins 
Dessine un œuf : 


15 oi OEUF 
ee 
ES à 2109: = 1 BE 


45 

45 # 
F4 : 

55 PAFER A: IHKE 


feet 





FOR AHG=E LE _E#PT STEF FI-5 





D GS 


Ti 
AA | 


x] 





A : DRAM 
G HEXT FIHG 


Dessine des carrés emboîtés : 





ee UD 


Fier 


X0. YO + L/2 








Dessine une pomme : 


149 “g=144:%Az=114t4 

34 HIRES 

44 PAPER TiIHE £ 

45 E=56 

59 FOR ANG:G TO FI#E 
FE :ASEXC 1- COS AMG 
LVSE# 1. SEL 1-COSE ANG 
:IF H3=1 AND € 
CURSET #6, #6, LCA 
HET AHG 

CRAN 14.4, 1 










“1 THEN 164 





en: 


GET #5 
TEAT 


D et pb et be ii ON QÙ 
Sion GS 


SoeUR 


ORIC POUR TOUS |123 


Dessine une toile... et son araignée : 


à FEM AFAIGHEE 


19 HB=70:YG=7@ 
15 R=15 


25 HIFES 

27 PAPFERE: IHEE 

36 FOR Mz3 TO 1 STEF -.5 

As cAEREM 1: ARE 

4 ©  CURSET #O+R4NM" 1, 4 1 

54 : FOR A=Fl-4 TO Z#FI+.1 STEF FIl“4 
SA: AeREMECOSE A 

5 : eREMESTIHE A 5 

CRAN if "A: 1 

IF M=3 THEH DEAN 4x", 1 
CURSET fe, 4 


mi 
Ex] 


Lo D D IG Gi 


+ 
God 
Lea 


#AES © AT 
: HEST A 
124 HET M 
134 : 
144 FOR =1A4 TO 184 STEF 3 
159 : CURSET 54,%.1 
169 HEXT 
174 CIRCLE d,1 


Dessine un soleil : 


124 


FEM SOLEIL 


HIFES 
IHKS 
eGe 1664: "42146 
FENM meme Dee eee nene ee 
CURSET #64." 1 
1 FOR F=i TO 34 
CIRCLE F1 
HET & 


RE ess Fagons —------- 
FOR A=@ TO ZXFI STEF F1/24 
R=4@+RHDC 1 +40 

H=RECOG À 2: RES IMC À) 

29 : CURSET X9,Y0,1:DRAM X,%,1 

39 HEXT À 


RENNES, ELA ELA EEE Lx) 





Nine pe ke Kigfiee e Î in 
DURE DURS 
Lan] 


2 
dre 
AR 


Ce 


2 
Ci 
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PATTERN X : 


Cette instruction permet d’effectuer des tracés en pointillés. Le dessin des pointillés est fonction 
de la valeur binaire de X. À chaque 1° binaire correspond un trait plein. 


121 01101111 


— 
EX, 


HIFES 

FATTEEH 121 
CURSET 144,144. 1 
GÉAN SE, 64, 1 


Rire 
DELA REX 


Le programme ci-dessous dessine un cercle plein avec des alvéoles 


2: 





EN 
ARR ENT 


CURSET 194,146, 
FÜR Rzl TO 3 
FATTERH F 
CIFCLE F.1 
HEST FE 


DIN hifi 
Tr 


POINT (X,Y) : 
Donne 0 si le point est en couleur BACKGROUND et — 1 si le point est en couleur 
FOREGROUND. 


HIFES 

PRINT FPOTHTS 166, 1684 
AIT _24 

CLURSET 194,140. 1 
PRINT FOIHTE 166, LEE 


DELA EUX LA | 


UN DBiillue 


FH 
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FILL nombre de lignes, longueur, couleur : 


L'instruction FILL permet de modifier la couleur de fond et la couleur d'écriture de 
parties d'écran. L'écran est découpé en 200 X 40 cellules. 


40 





HE 


Fond : 16 < = couleur < = 23, 
Ecriture : 0 < = couleur < = 7. 200 


Le coloriage se fait à droite de la position du curseur 





100, 100 


Sa CURSET 54,154, 1 
En FILL 11,18 





La longueur spécifiée (1 sur l'exemple) n’a de sens qu’en cas de recouvrement par des FILL 
successifs. Dans le cas présenté, le coloriage se fait jusqu’au bout de l'écran. 
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Drapeau français : 


Ce programme dessine, par recouvrement de couleurs, un drapeau français. 


119 


Rimbbmp ik he he bee 
SL 0 M CU B Fo Qi ri 
QUO RSOGDAS EG 


REN 


DÉAFEAU FRANCAIS 


HIFES 
IHH1 


CURSET 4f8,: 
FILL 64,1,24 


CURSET 72: 
FILL 64,1: 


CURSET no 
FILL 64, 


CURSET 1% 
FILL 64.1, 


CURSET 43,54, 1 

DRAM 6,166, 1 

CURSET 64,56, 1 

#$= "FRANCE" 

FOR Izi TO LENS) 

CHAR ASCEMIDSC ES, I,133,4, 
CURNMOY 4,5, 64 

MEXT I 


Histogramme : 


à REN HISTOGRAMME 
18 DATA 12.8, 26, 14 
HIRES 
FOR Is1 TO 4 
REHD H 
CURSET TK, 1HA-H#S, 1 


CO 4 45 3 —j UD UN Be LRO 
HAS Ge ES 


q 


+ FILL HKB: 1, 16te 


‘REM ELEL 


:REM ELANC 


:REM ROUGE 


Î 


CURSET Zdxc I+1 23, 188-HX3, 1 


: FILL HK3. 1.18 
MEXT I x 


164 CURSET 23,24,1 
116 DRAN &.84.1 


126 DRAM 


128.6@,1 


FRANCE 





T = TZ 
= 


120 


ARERE Gare CZ 
4 nn 
le 


N 


VERT = 2 


ROUGE 
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Rectangles multicolores : 


e Nous dessinons un rectangle rouge puis nous superposons un rectangle vert. Essayez le 
programme sans l'instruction 20. 


5 HIRES 
3 

26 FILL 249,:39,16 

25 REM--———— Féctanale rouge | 

4û CURSET 40,24, 1 
Sa FILL 34,14,17 ROUGE 
55 REM—--———— Réctanale vert 


68 CURSET 4,25, 1 
FO.FILL 6.5,18 


e Des tranches de couleurs sont superposées. 





ROUGE 
5 HIRES VERT 
a en 296,39, 16 y BLANC 
Sà : 
198 FOR C=ëé TO 1 STEF-1 
118 : CURSETÉ12-CHHIE, C#S, 1 
124 : FILL CIH-CHk1E. Ckd, 1640 
125 : HAIT 1@4 
138 HEXT C 
VERT 
# JAUNE 
14 HIRES 
PA : AM BLEU 
ES FILL 154,533. 1E 
34 FOR Fs2 TO F Æ— VIOLET 
HS : AeF#ÈXkZ 
Er: YeF#S 
di : CURSET iv 
SA : 
SG : FILL F4 F4, 16+F 
Fa HEËT F 
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CHAR Code, jeu caractères, type couleur : 


Cette instruction permet d'afficher un caractère en haute résolution. Le code doit être compris 
entre 32 et 127. 


Code : 32 < code < 127 


Jeu de caractères 0 ou 1 (jeu normal ou alterné) 
Pour afficher la lettre À au point de coordonnées 100, 100 


16 HIRES 











Pour afficher une chaîne, il faut décomposer celle-ci en caractères et afficher chacun d’eux. 


LA HIFES 
20 H&="ORTC Le 


+ 
A) 


CURE ET 164. 144,5 
FF: Fel T0 LEHS Hs 

ï EMICHOHE. PF, 111 
CHAR Ca 6 

: CURE 14, LE, 


AE 





Lx 
3! 


D 0 jf Mi A Big 
RARE 


AELX 
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Histogramme circulaire : 


Remarque : Pour afficher les pourcentages à l’intérieur de l’histogramme, il faut convertir les 
pourcentages en chaîne (par STR$) puis afficher le résultat caractère par caractère. Le premier 
caractère de la chaîne qui devrait être un espace ne sera pas affiché (son code est 2). 


FEM HISTOGRAMNME CIRCULAIRE 

He 15=,.2:H&6 13="TARTE" 

Hi Ze, 3: H$e Ze "CROISSANT" « 
He, 1 H$é 3 4e "ERTOCHE" TARTE 
Hé 4 2,3: H$6 à = "ECLAIE" \\ 

Hi Sos, 1'H&e ES = "FAIH" 

7 CROISSANT 


(s) 
5 HIFES BRIOCHE 
7 IHK2 

4 AG=124:vYA=10E 
[c) 





F=24 : 
CURSET “4. v@, 1:CIRCLE F1 


EME re ea eee ne ere ie Rae en 


Berre o JUNE 


45 AA=G 
34 ee F=i TO S 
6 A 





6e : CURSET "a C 

65 : AcR#C RSR FRASTNEA) 

65 : CRAN : REN Tranche 
F4: 

F2 2 AT=AA+FIÆEHIF 5 RENM Fogsition te 





F3 5 #$=Hpi Fi 
F4 5 HER#1, DHCOUSC AT 0 YeRET, DESTINE AT 
F9 : IF ATSPISE AND ATÉS#PISE THEH ee L EME 4 RE 


7G : 
84 : CURSET ft, EG, REM Texte 
82 : FOR Isi T0 LEHC #0 

Bd : CHAR ASCÉ MID 6, I, 1 0, 6,1 

26 CURENQY 6,6, 

te) HET I 

34 : 

48 : AH=A 

144 HEAT F 
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Horloge : 


16 REM HORLOGE 

eû 

38 HIRES : INK 

48 Gaz 164: "Gel AG: RAGE 

SG : 

ÉO REM eue me ne me me ne ae aan ou ee ou mo on ne me Dessin horloge ---- 


Fa CURSET 8,6, 1:CIRCLE Ki 
80 FOR A=û TO SXFI STEP PIl-É 


AÙ : er, GKCOSE ADI NERE, SXSINCR? 

188 : IF A)FI-2 AND ASSKPI-E THEN Ken5 
118 : CURSET XOD+%. O4, @ 

120 : CHAR d42.6,1 

138 HNEXT À 

14Q REM mon me mou ou no mea un MENU MEME eme meme mu ne nu 
156 ee 

16û FOR A #4 TO 1904 STEF FI‘30 

176 IF APeXPI THEN 518 

HET : EURSET SE, YA, À 

198 : IF K1<90 OR Y1SoA THEN DRAW K1.T1.E 
26@ : CURSET «û, 6,1 

21 1 NeRKCOSCA à: VaRS INC A 0 

220 : CRAN xaivl 

838 : SOUHD 1.414 

24@ : WNAIT 4 

25@ : SOUND 1.4,û 

264 : WAIT 40 

27 : 

380 Nizk:viey 

29û NEXT (] 

GOQ REM ee mc ou ee oo au ou Exp Lens den meme me mm one ve 


314 EKPLODE 

SSBHIRES : INK1 

338 CURSET K0. YO, 1 

F4@G FOR Re? TO SG:CIRÈLE R1'NEXT R 





Remarque : On peut modifier l'instruction WAIT 40 (ligne 260) de façon à ce qu’un tour de 
cadran corresponde à une minute. 
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Guirlandes circulaires : 


Votre nom apparaît sous forme d’une quirlande circulaire. 


À REU GUIFLANCE CIRCULAIRE 


Fa HIFRES : IHKE 
29 IHPFUT "VOTRE HOM ":MH& 
34 HS=NG+"#"+H$:IF LEHCN$IESE GOTO 34 


4x : S 
45 CLS 9 
59 FOR P=1 TO 49 cs 
69 f= P#F1/24 Be) 
74 : =5 1H A 2#80+ 104 Mas 50 
75 :  X=CO0SCA>Kk100+124 pp TN OP 
80 :  XB=MID#CHS,F, 1) 
9 :  CURSET X#,,@ 
35 CHAR. ASC 4$ 5,0, 1 
190 HEXT F 
5 REM GUIRLAHCE 
18 HIRES: INKE 
26 INPUT "VOTRE HOM ":H$ 
25 HS=LEFTSCHS, 5 
| SOPHIE 
pa À 
pO o 0 
e H P H 
TS I H Û 
EG E | E 
É, E 





+ HEX ca 
GG HEXT F 


= LD LOU 
Det Ds D EN ELARS ELX ER 
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CARACTÈRES SPÉCIAUX 


Des caractères particuliers permettent (en mode TEXT) de changer la couleur des caractères, la 
couleur de fond où sont écrits les caractères, de doubler la taille des caractères, etc. 


Couleur des caractères : 


La couleur des caractères se choisit par : 


PRINT CHR$(27); «@ à G»; « MESSAGE »; 


Le programme ci-dessous affiche une ligne de caractères verts et une ligne de caractères 
rouges. 


18 CLS CARACTERES VERTS 
24 ES=CHRS 27 à PRIOR EURE 
34 PRINT " ";E$;"B";"CARACTERES VERTS": 

44 PRINT E$;"A";"CARACTERES ROUGES" 





Remarque : Chaque saut de ligne annule le changement de couleur. Par conséquent, 
l'instruction PRINT CHR$(27); «@ à G>» doit être exécutée pour chaque ligne. 


Couleur de fond : 


De la même façon, la couleur de fond (où sont écrits les caractères) se choisit par : 


PRINT CHR$(27); «P à W»; 


14 CLS 

BA E$eCHEHE ET 

34 FEIHT "SES: "OS FOND ROUGE": 
44 FEIHT Et" "FOND VERT" 


gr FOND ROUGE FOND VERT 


Le fond 
est 
rouge 
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Ci-dessous, pour 4 couleurs de fond différentes, nous affichons le même message avec 4 
couleurs de caractères différentes. 


Essayez le même programme avec un point virgule à la fin de 80 (PRINT « BLABLA »:) et 95 
PRINT. Vous obtiendrez 4 couleurs de caractères sur la même ligne. 


19 CLS 

24 ES=CHRSE 27 à 

34 : 

46 FÜR CEK=G TO 3 
39 : FOR CFRsG TO 3 


EX : PRIHT " "ES; CHRS$CSU+CEK à: :REM Back3round 
79 : PRINT E$;CHR&CÉéd+CFR 3: :REM Foreground 
86 : FRIHT "ELAELA" 


94 : MEXT CFR 
198 HEAT CEK 


Fond noir 


5 —+ 
———— id 





Couleurs avec PLOT : 


Les couleurs d'écriture et de fond peuvent également être choisies avec PLOT X, Y, 
CHRS (couleur). Couleur est compris entre 0 et 7 pour l'écriture et 16 et 23 pour la 
couleur de fond. 
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CARACTERES DE TAILLE DOUBLE : CHR$(27); «9» 


A double “ Hauteur 


OURS LE TL 


normale 


FT LE qe LUE 





Pauteur | 
doubl | 


FLIH 





Remarque : L'instruction PRINT en ligne 20 est nécessaire ; elle permet de placer le curseur 
sur une ligne paire. 


Caractères clignotants : CHR$(27); «L» 


à CLS 
[e 


GC pe 2 
SA PRINT "OMS CHSCT di LUS NMESSAGE" 


CE 





ut 


FUH Ë 


Locptutlt 


Retour aux caractères normaux : CHR$(27); «H» 





ER 
20 ES=CHRS 27) ne 
24 FRIHT " MSES re MHESSAGE 1 TEE TA ME … 





do bn tn Re 
\ 
s 


. MÉSSAGE 1 


ft 1 1 ! 


- 
- 





\ 


Utilisation de PLOT : 


CHRS (10) — Caractères de taille double. 
CHRS (12) — Caractères clignotants 
CHRS (8) — Caractères normaux. 


dLaracteres de taille double 






LE GHUTAILLE DOUBLE" 


El L'an as 


MEL IGHOTEANT CHENE E 
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CARACTERES ALTERNES : 


Il existe un jeu de caractères alternés (ou semi-graphiques) utiles pour la composition de 
dessins. 


On v accède par: CHR$(27); «I» 


Passage aux 
caracteres 


altemés 





14 CLS 
28 PRINT " "JCHR#CS 





1; LL ] LA ; NT 
Le programme ci-dessous affiche tous les caractères alternés. 


CLS 

FOR Ce3e TO 127 
:PRIHT C, CHRE ET 13 
:PEIHT 

ner SE 

EG HE (E 






nn £ Grir 
0 Gi 


Cet autre programme affiche les caractères alternés sur 3 colonnes et en couleur : 


5 FEM CAFACTERES SEMI-GRAPHIGQUES 

6 : 

14 CLS 

24 ES= CHR 27 3 :REM Ezcare 
39 


49 FOR C=34 TO 99 
42 : PRINT " "; 


45 : PRINT ES; "A"; :REM Rouge 
50 : PRINT E$;"H";C;CHRSCC 2; :REM Hormal 
E9 : 


74 PRIHT E$;"1";E$; "D"; CHR$C C5); :REM Alterne/bleu 
90 Q=IHTÉC/35:R=C-0#3:1IF R=9 THEH PRINT 
198 HEXT C 


34 TU 35 + = 36 $ = 


37 % 33 & 39 
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Nous vous proposons, avec ce programme, de déplacer un avion de gauche à droite sur 
l'écran. 


18 FEM AYIOH 

2ÿ : 

119 AYS=CHR SE dd 54 CHR $C 1006 5+CHRS$6 36 à 
139 : 

135 LORES 1 

144 FOR #=1T0 39 

145 : PLOT %#-1,15," "  :REM Effacement arriere avion 
154 : PLOT %,15,4"$ 

155 : HAIT 5 

164 HEXT # 

179 : 

189 GET 4% 

269 TEAT 
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FONCTIONS 
PARTICULIÈRES 


Choix d’une couleur pour une partie d'écran : 


En mode graphique, il n'existe pas d'instruction BASIC pour choisir les couleurs 
FOREGROUND et BACKGROUND (de fond) pour une partie d'écran. 
Il faut recourir à l'instruction POKE. L'écran est divisé en 200 * 40 cellules. 


40 





POKE adresse mémoire, couleur FOREGROUND 


Pour définir une bande rouge de hauteur H, nous écrivons : 
Naturellement, la bande FOREGROUND rouge ne se voit pas à l’écran. 


14 HIFRES 


36 H=54 
46 FOR AN=49364 TO 449£6G+H#4û STEF 49 Partie 
54 FOKE 4.1 rouge 


69 HEXT AM 
89 CURSET 9,9, 1 
34 DRAM 196,109, 1 is so! 





E—_ 
| Partie blanche | 
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Ci-dessous, nous traçons une bande située au milieu de l'écran, 


19 HIRES 
28 : 

39 X1=20: 12100: H=5@ 
44 FOR AM=42360+11%40 TO 4996@+c1+H3k4@ STEF 4% 
SQ : POKE AM+41,2 

6A HEXT AM be 
79 : 

8 CURSET 59,110, 1 

94 DRAM 188,6,1 


Vert 





POKE adresse mémoire, couleur fond 


De la même façon, la couleur de fond (BACKGROUND) d’une partie d'écran peut être 
programmée. Il faut ajouter 16 au numéro de la couleur. 


14 HIFES 

4 : 

34 = H - 50 | 
48 FOR A=4B960 TO 4M96m+H*x49 STEP dû 


4 
S@ : POKE AM. JEt 
6A HEXT AM #7 
ta 
Background 











La séquence ci-dessous définit à la fois une partie FOREGROUND bleu et une partie 
BACKGROUND rouge. 


HIFES FOND ROUGE 
à ECRITURE BLEUE 


3 Tir 
1 
RAELX 





H=5f 

FOR AM=4QREn TO 4GBÉGHEdD STEP 4 
: POKE AN, 1E+ 

: POFE A+, 
HEXT At 


a 
it 


ES 


En 1 





ja 





Ex 
Len 


CURSET 6,4, 1 Bleu 
CEAU SE, SE, 1 





8 15) 


D 0 Gin LE 


rer 
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Droites multicolores : 






2 REM----- TRACE DE DROITES DE COULEURS DIFFERENTES 
S HIRES 

(a E=daacn 

BU BEM DROITE VERTE 


eemenmemmnce DROITE ROUGE 


16 
st: GOSLE: fi 


STOF 
Se pp sante SOUS PROGRAMME 

= INT KE YO, YO 
“= fa 


DISTHTE DE 3: D2S0 


SSORC Di ÉD {+DSEDE 3 TA 
#eD1<DIST:CYe0-DIST AU IRE 


Pockées 





DIS 


FGR Di TO CIST+1 
SIHTE 1 +CECE 11 

Fi Y= IHTÉY LADKCY 0 

D + ANMSE+ES SET ii 

a : FÜKE AMC 

1ra HEAT C 

184 

246 CURSET : «Ta. 1 

218 CFA DK. 

ce4 FETURH 







DR 


CAEN Be ce Po) me M Qi A 


Mbps pe Ds = iT IN EN EN 


re 
Di 
At EI 





FILL nombre de lignes, longueur, couleur foreground : 


e La couleur foreground d’une partie d'écran peut également être choisie avec FILL. 
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Feu 


x bicolores : 


Nous dessinons 2 cercles pleins. En choisissant les couleurs FOREGROUND, nous les faisons 
apparaître en rouge et vert alternativement. 


à R 


mime JTE Bio We mmE 
D fe MODES EURE 


Ados LE 


ren 
& 
ae 


14F 
154 
168 
174 
154 
138 
Z6f 
16 


Fes 
* 
Le 


Er FELIX BICOLORES 
HIRES 
= 35 :REM HAUTEUR TRANCHE 
Ci= 1:C2e2:GÛ0SUR 174 :PREM COULEURS 
GOSUE 1614 :FEN CERCLES 
AIT 44 
Ci=2:Céel: GOSUE 174  :REM COULEURS 
UAIT 244: GOT £G 
EHC 
REM= me TRACE CERCLES —-—-—- 
CURSET 194,H/2,1 
FOR Rzi TO 14 
CIRCLE F.1 
HEAT KR 
CURSET 1G6,H+H;2,1 
FOR R=l TO 1% 
:CIRCLE F1 
HET F: 
REM-- SPGH COULEURS ——— 
FOR AN=d449364. TO 4GSÉG+4GXH STEF 4 
POFE AM, C1 
POKE AM+S4TEH, CE 
HET AN 
RETLFH 


30 
30 








Foreground 
72 rouge 
7 Foreground 


vert 








En changeant les couleurs FOREGROUND, le cercle rouge devient vert et le cercle vert devient 
rouge. 


Le sous-programme en 160 peut être remplacé par: 
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Soleil levant : 


Un cercle jaune plein se déplace du bas de l'écran vers le haut. La partie basse de l'écran ayant 
une couleur FOREGROUND identique à la couleur BACKGROUND, le tracé du cercle 
n'apparaît pas dans cette partie. 


SÛLETL LEVANT 







gpl ÉnEe pooni 


Background rouge 
foreground jaune 






ee 
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Ciel étoilé multicolore : 


Des tranches de couleur FOREGROUND (hauteur 12) sont choisies au hasard. Des «x» sont 
affichées au hasard sur l’écran. Leur couleur correspond à celle de la tranche où ils sont 
affichés. 











= REM CIEL ETOILE MULTICOLORE 

Ë 

14 HIRES 

15 HT=1# REM Hauteur tranche culeur 
15 REM---ee-e Foreground couleurs aléatoires 
24 FOR AM=4GRéE TO 443EG+EAU44g STEF HT#44 

34 CepHDic 1 EF +1 

35 : FOR Heÿ TO HT-1 

36 POLE AM+H#46,C 

cri HEXT H 

GA 

44 MEXT AN 

AD REM-emesenennennennnnnnsnens ELoiléSs sms 
[ELA 

Fa: HeRMDC 142504: TeRNDE 114154 

BA : CURSET AVE 

94 : CHAR 4£,64,1 

194 HEAT E 

















ORIC POUR TOUS | 143 


ACCES AUX CODES ECRAN DES CARACTERES : 


Chaque caractère affiché à 


8 x 8. 


l'écran est un ensemble de points allumés à l’intérieur d’une matrice 


8 octets en mémoire sont utilisés pour représenter cette matrice. 











BINAIRE DECIMAL 46080 
001000 -8 

010100 +20 

100010 +34 


46600 


001000 
ca 


010100 





Si nous connaissons l’adresse de la zone mémoire où est stockée la définition des caractères 
écran, nous pourrons y accéder grâce à l'instruction « PEEK adresse mémoire » et « grossir » ces 
caractères à l'écran en utilisant la basse résolution. 


Les instructions 1000 à 1100 convertissent en binaire les valeurs décimales (obtenues par 
PEEK) en valeurs binaires. 


ORIC-1 s'affiche en gros caractères, la couleur de chaque «pavé» est choisie au hasard. 
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LR Leo 


5 REM GROË CAFACTERES MULTICOLORES 
6 


18 CLS 

15 LORESE 

28 H&="ORIC1" 

34 : 

46 FÜR Fsi TO LEHCHS 
39 :Cé=MID#CHS, PF, 15 

ÉD :CSASCI C$ 1: A=d4éGS A: DeCXxE 
FA :FOR H=Q TO F 

88 :  HCMI=PEEK( A+D+H 
9@ :HEXT H 

198 GOSUE 1446 

194 HEXT F 

294 EHD 


1044 REM-— uen ne men ae ven an ne me Cessine caractere 
1816 FOR Hzg TO 7 :REM & LIGHES 
1934 : FÜR Mz7 TO 4 STEF-1 :REM COHVERSION BIHAIRE 


1646: GeIHTE HMS Rene MC EE à 

1954 :  HCHiel 

1974 : IF F=4 THEM #16 ELSE &xiF+RHDt 1 144 
1884 +  PLOT F-10274, 14H, 

1434 : HEXT M 

1148 HEATH 

1114 RETUFH 
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MODIFICATION D'UN CARACTERE D'ECRAN : 


Avec le programme précédent, nous accédions aux codages internes des caractères affichés à 
l'écran. Ici, nous modifions ce codage de façon à changer l’affichage du caractère «B » qui 
devient 


X$( ) 


000000 
100010 B 


000000 
001010 





16-#- 


Lorsqu'on appuie 
sur la touche ‘B' 
c'est !-’ qui 

est affiché 


Pour cela, nous codons en DATA le dessin du caractère (ici un DE). Nous convertissons le 
codage binaire en décimal puis nous le rangeons par: 


POKE adresse mémoire, code décimal. 


Les valeurs décimales peuvent être obtenues en ajoutant 2055 PRINT ND. 


Les instructions 1000 à 1110 ne sont pas nécessaires. 


Autre exemple : 
Pour dessiner une silhouette de soucoupe volante, nous faisons : 







































EL HD 





ME 
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# REM DESSIN C'UH CE 
5 CLS 

F C$e"s" “ Caractere à changer 

8 CeASCE CS 

14 A=déGSA: DeCkEs " Hdréesse mémoire ecran 
12 LÜRES 4 

13 ET rie ot et ces Dessin caractere 

14 : # A: "DR fi ss! LL 

15 AC 1 2" 1 Le 





GOSUE 14645 
GOSUE 2444 
FRINT C$ 
EHC: 
PEñermerene Affichage Gros caracteres 
FOR He TO F 
FOR M=i TO LEHS ARE Mi 
FzVALEHMICSE BE M, M, À 
FeWALEMICEC POUR 
954 : IF Fzl THEH EX ELSE #elé 
1464 :  PLOT M. 1R4+Hx 
1434 :HEËT M 
1188 HEXT H 
1114 FETLIFH 
1999 FEM---ss. Congres don binaires des tmal 
FOR HG TO F 
HCz=11 
LeLEME SE H 
FÜR Mel TO L 
FzUALE MID Se NH, M, 1 0 
HO HCHERUEE EME LT 
HEAT M 
POKE € 4+D0+H 5, HD :REN Modification memoire gran 
FRIHT HEC 
HEAT H 
FETUFH 







mi & 


— 


je, 


( 
5 
36 
gag 
1 
4 


DSODEG--RS 









a 


De SSL O Jin 


qu 


fi 


LEA 


fi 
A 
à 
ü 
(a) 


5 REM METHOCE DIRECTE 

F REM FAIRE RUN 2114 

G A=460869 : Cé= "Ep": CEASCE CS DECXS 
DATA @,:34,6,8,64,:34,0, 08 


bte ht be (oi CO 


Fo Pa Po Po Pa Po Po Fo 


= 
CG 


FÜR H=G TO 7 
2154 :FEALC HD 

2169 :POKE A+D+H, NC 
2179 HEXT H 


Fa 
rene 
pe 
Lee 
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Mini-interpréteur de boucles : 


Pour expliquer comment fonctionne un ‘Interpréteur Basic’, nous avons écrit en DATA un 
pseudo-programme. 


30 
ac 
oU 
6U 
76 
80 
90 
1CU 


lac 
15C 


160 : 


170 
186 
190 
2CC 
21C 
220 
23C 
2aC 
250 
Z6Ù 
270 
280 
29C 
30C 
31C 
320 
330 
332 
354 
336 
34C 
350 
36C 
370 
380 


RUN 


Gra 
B 
B 
B 
Gra 
B 
B 
B 


14 


REM 
DATA REPETE 2 
DATA PRINT "Grand 
DATA REPETE 3 
DATA PRINT 
DATA ENCURE 
DATA ENCORE 
DATA * 


FOR I=1 TO 166 
READ X$:IF X$="#1 


CD£(I)=Xx$ 
NEXT I 
PL=] :REM 
LE$=CDS (PL) 
C$=LEFI$(LGS,4) 
IF C$="REPE" THEN 


IF C$="ENCC" THEN 
PRINT PL3;LG 


PL=PL+] 

IF PLONC THEN STOP 

GOTC 19C 

REM 

REM 

REM 

FOR Pz=1 TO LEN(LG$ 
IF MIDE(LGS,P,1)= 

NEXT P 

P=G 


e boucle" 


Boucle interne" 


THEN NC=I-1:GO0T0 170 


pointeur de ligne courante 


GOTU 33C 


GOTO 370 


ne 
PILE RP( }) 
N° ligne 


PR --> pointeur pile RP() contenant no ligne apres REPETE 







pseudo programme interprete 


Table CD$( }) 


REPETE 2 
PRINT ‘GRANDE BOUCLE” 

















2 


PILE NB ) 
nombre de boucles 


Repete 


NB() contenant nb de boucles 


) 
"M" THEN 340 


PR=PR+1 :RP(PR)=PL+1:NB(PR)=VAL(RIGHT$(LGS,LEN(LG$)-P)) 


PL=PL+1:GOT0 190 


NB(PR)=NE(PR)-1:IF NB(PR)>C THEN PL=RP(PR):GOTO 190 


PR=PR-1:PL=PL+1 :G0 


nde boucle 

oucle interne 
oucle interne 
oucle interne 
nde boucle 

oucle interne 
oucle interne 
oucle interne 


8 
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TO 190 


Tracé de figures : 


La plupart des langages proposent des ordres graphiques où sont spécifiées les coordonnées X, 
Y des droites à tracer. Le langage LOGO propose des ordres graphiques originaux. Nous en 
avons simulé deux en BASIC : 


AVANCE distance : Trace d’une droite d’une longueur égale à ‘distance’. 
ROTATION angle : Change la direction du tracé en lui ajoutant ‘angle’. 


DX 
—— > 
DY 
Ÿ - D X SIN (ANG) 
Rotation, 90 a ANG 
me T 
X = D X COS (ANG) 
VS hoorieé: 20 
18 FREM --- Trace de dessins —-—- 


29 HIFES:IHE 5 
39 *4=106:"4=19f 


44 CATA ROTATIOH, 45. 
59 DATA AVAHCE,S5 
69 CATA FOTATIOH.36 
F4 DATA AVANCE, 54 
F2 DATA FOTATIOH, 34 
F4 DATA AYAHCE.56 
F6 DATA FEÛTATIOH, 34 
F8 DATA AVAHCE.564 
54 DATA FIH 


149 REAC CH 

158 : 

164 IF CH$="FIH" THEH 254 

174 IF CH$="FOTATIOH" THEH REALD EF: ANG=ANG+R: COSUE ZT 
184 IF CH$="AVANCE" THEH FEAL CIST:GOSUE 294 

196 GÜTO 144 

eu 
216 
224 
234 
298 
264 


FE 


ts) REN Sn Trace droite 





C5) 
314 
SEA HAEX 
334 RETURH 
549 

354 GET A& 
368 TEXT 


avi SCIST#CY#1.3: FENM DePlacement 
1: CEAN Dé, C1 
+ 
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Mini-interpréteur LOGO 
Nous interprétons en BASIC quelques ordres graphiques du langage LOGO). 
Instructions de base : 


DISTANCE 10 La distance courante devient égale à 10. 


AVANCE Avance de la distance courante. 
AVANCE 10 Avance d’une distance de 10. 


ROTATION 90 La direction courante est modifiée de 90 degrés. 


DIST. + 3 La distance courante est augmentée de 3. 
LEVE Le tracé n’a plus lieu. 

BAISSE Le tracé reprend. 

Boucles : 


Les instructions entre REPETE X et ENCORE sont exécutées X fois. 


REPETE k& 
ROTATION 90 
AVANCE 

ENCORE 


Cette séquence dessine un carré. 


Fonctions : 


Des ‘fonctions se déclarent ainsi. 
DEFI TRIANGLE 


REPETE 3 
AVANCE 
ROTATION 1260 


ENCORE 
FINI 


Pour dessiner un triangle, il suffit ensuite d'écrire : 


TRIANGLE 


Au moment de la lecture des instructions, la ‘fonction’ est remplacée par la suite des instructions 
qui y sont écrites. 
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Dessin d’une étoile 4 branches : 


REPETE 4 
AVANCE 10 
ROTATION 160 
AVANCE 10 
ROTATION -70 

ENCORE 


Etoile 5 branches : 


REPETE 5 
AVANCE 10 
ROTATION 160 
AVANCE 10 
ROTATION -88 

ENCORE 


Octogone : 


REPETE 8 
AVANCE 10 
ROTATION 45 

ENCORE 


3 carrés : 


REPETE 3 
DISTANCE 5 
BAISSE 
CARRE 
LEVE 
AVANCE 15 

ENCORE 


Spirale : 


DISTANCE 5 
REPETE 6 
AVANCE 
ROTATION 90 
DIS+ 2 

ENCORE 





70 = 180 — (360/4) - 20 


88 = 180 — (360/5) — 20: 


45° 
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152 


REM MIHI SIMULATEUR LOGO 


= 
DEREUA) 


HIRES: IHK3 


Rite 
Fi 






Ti 
ii 












ROTATION 96 
AYAMCE 





5 DATA 
CATA F 


1 GATH 
4 CAT 
4 DATE 
H DATA 
ä DATA 
4 DATA F 


He et pes pee ei pe js pe pe LU ENG ee) O4 
SN La € Dm 
= : 
Ra] 


DATA 
DATA CF 









DATA TRIFHE 
à DATA 






#$ © PRINT #3 
IF LEFTHCHS, die "DEFI" THEN GOSUE 1264 : GOTO 556 





"#4" THEN HOSI : GOTO 67û 





THE GUSUIES LE 






En | GT EE 
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- Lecture dés commandes dans CD ne 











ee Roma clé Time coran eee 


je sent (vvene uues vmte aug tenté vante pans déteé out oouné onde 10600 vaut 2000 dotte lé EE ( Le, gi CA fa TU fe CAN Pod nus see saute onde does 
LG 
ie" "THEN RETURH 





FTGHTE LOS, LEME LI ep 


: AHG= FIG: + FLE 
Li à 1 Li LAPANES CHE 





AR 
ie O1 THEM © 


3 
ERA} 


Trace droite 





Deû THEN PRINT "ERREUR": COS PL MEIT SA: RETURH 
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1245 
1215 
1224 
1239 
124 
1254 
1264 
1278 
1284 
129& 
1344 
1316 


RE une ue ee nu eau mue moe mnnee Tente Mis tansg 
GÛSUE Gé 
CISTEODIET+MALE RIGHTS LOGS, LEHE LISE ep 

FETLIFH 

RENM museau. Stockage fonction dans PC ee 
HF=HF +1 

Fi HF, 6 eRTGHTSE #6, LEHC 6 5 

FOR Fel T] 14 

REC F#CHF, Fi 

IF F&CHF.Fae"FTHI" THEH RETLEH 

HEXT P 

ETC 

RENM me ce me ne one oem mue Insertion Fonction ee 
Pal 


IF F&ik,F3="FINI" THEH RETUEH 


COgCIo=Fé&CK, Fi 
F=FP+i:l=l+i:GOTO 1356 


F$C.) 


CARRE | REPETE | ROTATION 
TRIANGLE | REPETE | | 










NE > 
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LES SONS 


Sur ORIC-1, il existe des sons déjà programmés. Ainsi, en frappant « EXPLODE » vous 
entendez un bruit d’explosion. 


Il existe également : PING 


ZAP 
SHOOT 


SOUND canal,période,volume : 


Cette instruction envoie une fréquence sur le canal spécifie (1, 2 ou 3). La période doit être 
comprise entre 1 et 32000, le volume entre 0 et 15. 


1Ë 
FT | 


Volume = 0 indique que le volume est contrôlé par PLAY. 


LÉ SCIHE 1 5 





Si la commande PLAY n'est pas programmée, seul le canal 1 fonctionne. 


16 FÜR Fesggf TO 1 STEP -56 
E4 : SOUHDC 1.,F.14 

ES à: PRINT "FREGLENCE : "36 1-FP 14168048 
&r : WAIT 144 

34 HEXT F 


2 


Pour le bruit, utiliser 4, 5, 6 au lieu de 1, 2, 3. 


Music canal,octave,note,volume : 
Joue une note sur le canal, spécifie (1, 2 ou 3). 


Le niveau d’octave est compris entre 0 et 6, note entre 2 et 12. Pour volume = 0, le volume est 
contrôlé par PLAY. 


Ce programme joue les notes 2 à 12 pour un niveau d’octave. 


5 INPUT MOCTAYE CH "il 
6 : 

14 FOR HeZ TO 1% 

E4 MUSIC 1,0.H,164 

25 :HAIT 54 

34 HET H 

4 : 

ég GÜTO 5 
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Play voies autorisées,voies bruit,type enveloppe, pé- 
riode enveloppe : 


Play contrôle la correction des canaux, le type d’enveloppe et la période de celle-ci. 
Voies autorisées : 


Le codage interne des voies est fait en binaire sur 3 bruits, chaque bruit représente une voie. 


4 2 ] 
La commande des canaux 1 et 2 se fait par : 
ON M 

5 © 3 3 = 2 +1— (PLAY 3...) 

S S 3 

O OO © 


Pour1,2et3 7 =4+2+1(PLAY 7.) 


Voies bruit : 


Le principe de codage des voies est le même que ci-dessus. 
Exemple : 


Bruit de vagues sur le canal 1. 


LE SOUNDS 4,26 
SA FLAT , 1e 


; #7 Période 
T | EE enveloppe 
Type 
Bruit enveloppe 
canal 1 
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Type Enveloppe : 
Période Enveloppe : 


Lorsque le volume spécifie dans SOUND ou MUSIC est égal à ZERO), la forme et la période du 
signal sont déterminées par « Type enveloppe» et «période enveloppe ». 


les DUREE FINIE 


eo ) 
4 Ne IN AN RARE A 


CONTINU 
5 : »£ 


| 


LE PLAY 1,6, 4, AGE 
LA SONIND 1, 18606 


ren 
es, 
Et 





Ex 


ren 
Lee) 


RENM ESSAI EHVELOFFE 


INPUT MEHVELLOPPE ";E 
INPUT "FERIOCE EMVELOFFE "3F 


MUSIC 1,5,4.6 :REM volsg -% controle Far FLAY 


PLAY 1:H,E.F 
GOTO 3 


0 Où —J Ci ON E Co Pa 
DR RR EURE LU EUX Ex 


Fe 
_u 
NA] 


4 FLAT FLAT 6,8, Stoppe tous les sons 
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Morse 
Ce programme vous permet d'apprendre l'alphabet MORSE. 


Par exemple, en appuyant sur la lettre S, vous entendez 3 sons brefs. 


En appuyant sur 0, vous entendez 3 sons longs 


14 RENM MORSE  25,3,83 

12 : 

15 PRINT CHRSIE :REM Clavier muet 
A : 

34 DATA miser reseute 

4% DATA sus. eee 

54 DATA eines uns mms esse 

BA DATA mimi minime, 


76 DIM MRSSE 26 2 
S@ FOR P=1l TO 26 
34 : READ MRSSCP 
199 HEAT F 


116 : 

124 GET #%$ 

136 : 

1464 PaAECC eg éd: Tr Pas-ég THEN FRINT CHE&CE 2: EHD 
145 


159 IF P<1 OP F>26 THEN 14% 
164 HB=MRESCP à 
165 : 


174 FOR Fei TO LEHCHS) 
189 : IF MID#CHS.P,13="." THEN SOUND 1.508,12: MAIT 5: 
198 à IF MIDSCHS,F,loe"-" THEN SOUHD 1.508, 12: AIT 3 


MAIT 14 
HET F 
GOTO 1H 
PE vue mu au son ou ae me ee a one nee ee ee ee 
FEM Four afficher en MORSE 
REN faire: 166 PEÉIHT MARSSER Ai M; 


RAR ENTER EENELN] 


Fo Fo No Fo Fo 
UD EDR 


158 | oRIcC POUR TOUS 





Pian'’Oric 


Ce programme permet de jouer des notes à partir du clavier. Le programme s'arrête lorsque 
vous appuyez sur « CTRLC» (code 3). 


fi 


AR 


UE Tim mimi 


ire Ci 
Se 









ER] 


En 


DIGG LSASS SR 


ee 
ai 


Si 


ed CC LQ Mb Et CR et 0 Cet Co Fa Pa PQ Pe Pifgue =} M 3 LA BR Gi Po 


D QE LG GG lie DE Ci & 


CLS 
FRIHT CHERE É 0 :RENM CLAVIER MUET 
DIN Cle dl, Qi 4, ME di 


DATA 
CATA 
CATA E:ï,c 
CATA FE = 
DATA Ti3E 





DATA FIH 





FOR P=1 TO 4 
+ READ XS:IF K8="FIH" THEN 360 
FERD OT, HT 
CLÉ FDeUS : O6 P Ie OT MC P HeHT 
:NEXT F 


HSE TS IF EpeUt THEN SG 
IF ASC Riez THEH PRINT CHR&CE 3: END 


FOR Isi TO F 

CIF ELITE SES THEH 366 
MUSIC 1,06 IS HET, 1 
PLAY 14.64.68 

HAIT 34 

FLAT 1,6, 4,6 

HEAT I 

GOT 344 
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ANNEXE I 


RÉCAPITULATIF 
DES INSTRUCTIONS BASIC 





ABS (- 5) 


Donne la valeur absolue d'un nombre 


PRINT ABS (— 5) 5 








AND 


Permet le test de plusieurs conditions: 
Les instructions après THEN sont exécutées. 
SI condition 1 ET condition 2 sont VRAIES: 


90 INPUT “XX 2": X 
100 1F (X > 0) AND (X < 10) THEN PRINT ‘X est 
supérieur à O et 
inférieur à 10” 





ASC (‘B') 
ASC ("CHARLIE") 


Donne le code ASCII d'un caractère 
ou du premier caractère d'une chaîne 
(qui ne doit pas être vide) 


PRINT ASC ("B°) — 66 
PRINT ASC (CHARLIE") — 67 





ATN (X) 


Fournit l'arc tangeante de X exprimé en radians. 





CALL X 


Appelle le sous-programme d'adresse X. 
Retourne en séquence après un RTS. 








CHAR code, jeu. coul 


En haute résolution, dessine le caractère de code spécifique, 
à la position courante du curseur. 

‘jeu’ (0 ou 1) spécifie le jeu standard ou alterne. 

‘code’ doit être compris entre 32 et 127. 


CHAR 65.0,1 dessine le caractère A. 





CHR$(66) 


CHRS(7) 


Donne un caractère dont le code est 66. 
C'est-à-dire B 

PRINT CHRS(66) Affiche le caractère B 
PRINT CHRS(7): Active la sonnerie du clavier. 





CIRCLE rayon, coul. 


Dessine un cercle centre sur la position du curseur. 


0: BACKGROUND 1: FOREGROUND 2: INVERSE 





CLEAR 


Initialise les variables à 0. 





CLOAD “PROG” 
CLOAD “PROG”,S 


Charge le programme PROG en vitesse rapide. 
Charge PROG" en vitesse lente. 
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CES 


Efface l'écran. 





CONT 


Réactive l'exécution d'un programme interrompu par 
‘BREAK où ‘Ctrl C’ ou STOP dans un programme. 





CURMOV Dx.Dv, coul. 


Déplace le curseur sans dessiner. 





CSAŸE PROG” 
CSAVE *PROG”.S 


Sauve le programme PROG sur cassette en vitesse rapide. 
Sauve PROG sur cassette en vitesse lente. 





CURSET X.Y.coul. 


Positionne le curseur au point X.Y 
X doit être compris entre O et 239 
Y doit être compris entre 0 et 199 





+ 


DATA ‘‘Janvier:”",83 


Définit des données qui sont lues par READ 


10 DATA ‘Janvier: ”,83 
20 READ MOIS$:READ AN 
30 PRINT MOISS.AN + Janvier 83 














DEEK (adresse) Fournit en décimal le contenu de 2 octets successifs. : 
DEF ENx(X) =. Définit une fonction de X 
10 DEF FNA(X) - X/2 
20 PRINT ENA(12) 6 
DIM MOIS$(12) Réserve la place pour une table MOISS() 
DIM MOIS (12) 


DIM VNTE(12,5) 


(Une table non dimensionnée par DIM 
est dimensionnée à 10 par BASIC) 





DOKE adresse. valeur 


Range une valeur décimale dans 2 octets consécutifs. 





DRAW DX.DY.type coul. 


Dessine une droite à partir du point courant 


0: BACKGROUND 1: FOREGROUND  2:INVERSE 























FILL nlignes.ncol.coul 


ELSE IF cond THEN instruction ELSE instruction 
Exécute la ou les instructions après THEN 
si la condition testée est VRAIE. 

Exécute la ou les instructions après ELSE 
L si la condition testée est FAUSSE. 

END Définit la fin du programme 

EXP(X) Donne l'exponentielle de X 

EXPLODE Provoque un bruit d'explosion. 

FALSE Donne 0. 





Remplit ‘nlignes' de l'écran avec la couleur spécifiée 
à droite du curseur. 
L'écran comporte 200 lignes de 40 colonnes. 
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FORI-1TOS5 Toutes les instructions entre FOR et NEXT 
ë sont exécutées 5 fois. 
NEXTI 10 FORI-1 TO 5 
20 PRINT I.1Ki 
30 NEXTI 
1 1 
2 4 
5 25 
FOR I-3 TO 1 STEP -1 10 FORI-3 TOISTEP -1 
: 20 PRINT IKI.I 
NEXT I 30 NEXT I 
3 9 
2 4 
1 1 
FRE(0) Donne la place libre en mémoire centrale. 
PRINT FRE(0) > 15234 
GET X$ Lit un caractère au clavier (sans l'afficher) 


10 GET X$ 
20 PRINT X$: 
30 GOTO 10 





GOSUB 1000 


Provoque un branchement à l'instruction 1000 
(comme GOTO 1000) mais dès qu'une instruction 
RETURN est rencontrée, l'exécution se poursuit en 110. 


100 GOSUB 1000 ——— 1000 sous prog 


110... 1010. 
200 GOSUB 1000 1020 … 
210... 1030 RETURN 





GOTO 1000 


Provoque un branchement ou programme en 1000. 
Peut être utilisé en ‘mode immédiat’ après une interruption: 
les variables ne sont pas remises à zéro (comme le ferait 


RUN 1000) 








HEXS$(valeur) Affiche une valeur décimale en hexadécimal. 
PRINT HEXS$(20) — 14 
HIRES Provoque le passage en haute résolution. 





IF cond THEN instruct 


Le curseur est positionné en 0,0. 





Teste une condition et exécute la ou les instructions après 
THEN si la condition est VRAIE. 

10 INPUT “Votre âge ?" AGE 

20 IF (AGE>18) THEN PRINT ‘Vous êtes majeur” 








ORIC POUR TOUS | 163 


INPUT ‘‘Année ?";AN 
INPUT ‘Nom? ;:NOMS 


INPUT ‘‘Nom,Age ?’;,NOMS,AN 


Affiche le message ‘Année ?’ puis attend que l'opérateur 
entre la valeur de AN. 


Affiche le message ‘Nom, Age ?’ puis attend que l'opérateur 
entre les valeurs de NOM$ et de AGE (séparés par 

une virgule). 

Une chaîne ne doit pas comporter de virgule. 





INT(valeur) 


Donne la partie entière d'une valeur. 
PRINT INT(12.6) — 12 





KEYS 


Lit le clavier en permanence et retourne une chaîne vide 
si aucun caractère n'a été frappé. 

10 X$=KEYS:IF X$—"" THEN 10 

20 PRINT X$.ASC(XS) 

30 GOTO 10 





LEFT$("BASIC",3) 





Donne les caractères de gauche d'une chaîne 
PRINT LEFTS$("BASIC"”,3) — BAS 

















LEN('BASIC") Donne la longueur d'une chaîne de caractères. 
PRINT LEN("BASIC") — 5 

LIST Liste tout le programme 

LIST 10 Liste la ligne 10 

LIST 10-30 Liste les lignes 10 à 30 

LN(X) Donne le logarithme naturel. 

LOG(X) Donne le logarithme à base 10. 

LORES 0 Passagé en basse résolution jeu de caractères normal. 

LORES 1 Jeu de caractères alterné (semi-graphiques). 








LPRINT ‘Bonjour’ 





Affiche ‘Bonjour sur l'imprimante. 





MIDS(X$.7,4) 


Donne les caractères du milieu d'une chaîne. 


10 X$= "BASIC POUR TOUS" 
20 PRINT MIDS$(X$.7,4) —> POUR 





MUSIC canal,octave, note, vol. 


Joue la note spécifiée. 





NEW 


Efface le programme résidant en mémoire centrale. 








ON B GOSUB 100,200,500 


Suivant la valeur de B (1.2,3), le programme s'exécute 
en 100, 200 ou 500. 

Au retour du sous-programme, le programme continue 
à s'exécuter après l'instruction ON B GOSUB......... 


10 INPUT ‘Votre choix ? (12,3) ?":CH 
20 ON CH GOSUB 100,200,500 
30 END 

100 PRINT ‘‘Choix L'':RETURN 

110: 

200 PRINT ‘Choix 2":RETURN 

210: 

500 PRINT ‘Choix 3°":RETURN 
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ON B GOTO 100,200,500 Même chose que pour ON B GOSUB... Mais sans retour. 




























OR Permet le test de plusieurs conditions. Si cond1 
OÙ cond? est VRAIE, Les instructions après THEN 


sont exécutées. 


90 INPUT “X?":X 
1001F (X=—1)OR(X=3) THEN PRINT "*X est ‘‘égal à 1 OU 3” 





PAPER no couleur Détermine la couleur de fond de l'écran. 


‘no couleur’ est compris entre 0 et 7. 








PATTERN nombre Permet de tracer des pointillés dont l'image correspond 
à la valeur du nombre en binaire. 


‘nombre’ doit être compris entre O et 255. 





PEEK(1000) Fournit le contenu de la mémoire d'adresse 1000. 


10 X=PEEK(1000) 























PI PRINT PI > 3.14159265 

PING Produit un son. 

PLOT X,Y,17 En basse résolution, affiche un carré rouge en X.Y. 

PLOT X.Y, "AAA" Affiche‘AAA en X,Y. 

POINT(X. Y) Donne — 1 si le point X,Y est allumé, 0 s'il est éteint. 

POKE 1000,12 Range la valeur 12 (décimal) dans la mémoire 
d'adresse 1000. 

PRINT Provoque un saut de ligne. 


PRINT BONJOUR” 
PRINT “DUPONT':TAB(9) "JEAN" 


Affiche BONJOUR 
Affiche DUPONT puis JEAN en colonne 9 








READ MOISS.,AN cf DATA 





REM blabla Tout ce qui suit REM est du commentaire. 





REPEAT Les instructions entre REPEAT et UNTIL sont exécutées 


jusqu'à ce que la condition testée par UNTIL soit vérifiée. 


10 REPEAT 

20 : PRINT ‘‘Appuyez sur une touche” 
30 UNTIL KEY$<>"" 

40 

50 PRINT ‘Boucle terminée” 





RESTORE Positionne le pointeur des DATAS au début. 


Permet ainsi leur relecture. 





RETURN Signale la fin d'un sous-programme. Provoque un retour 


au programme appelant (à l'instruction qui suit GOSUB) 
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RIGHTS(X$,3) Donne les caractères de droite d'une chaîne. 
10 X$=""BASIC" 
20 PRINT RIGHTS$(XS$.3) — SIC 


























RND(1) Fournit un nb aléatoire entre O et 1 
RND(-3) Initialise une série aléatoire 
RND(0) Fournit le dernier nombre aléatoire. 
RUN Provoque l'exécution du programme. 
Initialise les valeurs des variables à zéro. 
RUN 100 Provoque l'exécution à partir de la ligne 100. 
[sons (X,Y) Donne le code ASC Il au point X, Y 
SGN(X) Donne le signe d'un nombre: 1 positif 
0 nul 
- 1 négatif 
SHOOT Produit un son. 
SIN(X) Donne le sinus de X exprimé en radians. 





SOUND canal, période, vol Produit un son avec la période spécifiée. 





























SPC(3) Imprime 3 espaces. 10 PRINT ‘’XXX'"':SPC(3)."'XXX'"" 
— XXX XXX | 
SQR(X) Donne la racine carrée de X qui doit être positif 
STOP Stoppe l'exécution qui peut être poursuivie en frappant 
CONT. 
STRS(123) Convertit un nombre en chaîne: 
10 X=123:X$-STRS(X) 
20 PRINT RIGHTS(X$.1) — 3 
TAB(15) Positionne le curseur en colonne 15 de la ligne courante. 
PRINT “LIBERT':TAB(15): ‘Pierre’ 
on LIBERT Pierre 
TEXT Annule le mode graphique. 
TROFF Annule la trace (TRON) 
TRON Permet de visualisers les n° des instructions exécutées 
(est annulé par TROFF). 
VAL(X$) Donne la valeur numérique d'une chaîne: 


10 X$=— "123 FRANCS" 
20 PRINT VAL(XS) — 123 





WAIT temps en 1/100° sec. Provoque une pause du programme. 





ZAP Produit un son. 
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ANNEXE 2 
MODIFICATION DE PROGRAMME 


La modification de programme se fait en se positionnant d’abord sur la ligne puis en recopiant 
la ligne à l’aide de <CTRL Az. 





14 FÉTHT °E 
24 FEIHT "HF 





Positionnement du curseur sur la ligne avec ? 


Vous appuyez autant de fois qu’il le faut pour vous positionner sur la ligne à modifier. 


Recopie des caractères de la ligne avec CTRL A : 


Lorsque vous êtes positionné sur la ligne vous recopiez la partie de la ligne inchangée en 
appuyant sur <CTRL A3. 











19 PRINT MEDH,SSR FRE 
Er Soir sur CTRL A 
pour recopier 
Vous avez appuyé Les caractères le reste de 
sur CTRL A frappés la ligne 
13 fois 


effacent les 
anciens 


Remplacement des caractères : 


Il suffit d'écrire les nouveaux caractères sur les anciens. 
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Suppression de caractères : — 


En frappant ‘—’ au lieu de CTRL A, on ‘saute’ les caractères qui ne doivent pas être recopiés. 


Insertion de caractères : 


Pour insérer des caractères dans une ligne (DIS sur l'exemple) il faut frapper 7 DIS | << 


19 PEINT "ILE 


————_—_—_——_— + 


10 fois PT ADIS 
CTRL A ISVe Eee CTREA 


EH LLILIE" 





pour recopier 
la fin 





Pour insérer 


On remarque qu’une ligne peut être recopiée avec un autre numéro. 


EDIT n° ligne: 


affiche la ligne spécifiée. 
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ANNEXE 3 
MESSAGES D'ERREURS 


Si le message envoyé par Basic ne suffit pas pour repérer l'erreur, pensez à visualiser en 
mode immédiat les valeurs des variables (avant de modifier le programme puisqu'une 
modification initialise les variables à zéro). 


BAD SUBSCRIPT 
On cherche à référencer un élément en dehors d’une table. 


10 DIM A(13) 


70 PRINT A(15) 
Il faut dimensionner la table avec 15 éléments. 


Cette erreur se produit également lorsque la table n’a pas été dimensionnée par DIM (elle est 
alors dimensionnée à 10 par BASIC). Dans ce cas, PRINT A(11) provoque une erreur. 


10 FOR I1=1 TO 15 
20 PRINT A(I); 


30 NEXT I 
Mode 
immédiat RUN —> 
0 0 0... 0 
La table BAD SUBSCRIPT 
À n'a pas été 
dimensionnée 
PRINT I 
—H 11 # 


CAN'T CONTINUE {ne peut continuer) 


L'exécution du programme ne peut être poursuivie : 
— Une instruction a été modifiée. 


DIVISION BY ZERO (division par zéro) 
Division par zéro impossible (ajouter un test IF X = O0 THEN...) 


ILLEGAL DIRECT 
Cette instruction ne peut être utilisée en mode direct (INPUT par exemple). 
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NEXT WHITOUT FOR (NEXT sans FOR) 
Une instruction NEXT est rencontrée sans qu’une instruction FOR ait été exécutée auparavant. 


100 GOTO 260 —— 





Il'est Interdit 
110 : d'entrer dans une 
190 FOR I=1 TO 10 boucle FOR 
200 PRINT I par GOTO 
210 NEXT I 


Il faut faire : 100 GOTO 190 


OUT OF DATA (plus de DATAS) 
On essaie de lire des DATAS avec READ alors que toutes les DATAS ont déjà été lues. 


OUT OF MEMORY (plus de place mémoire) 


OVERFLOW (débordement) 
La valeur d’un nombre dépasse la capacité prévue. 


REDIMENSIONNED ARRAY (redimensionnement de table) 


On essaie de dimensionner une table qui l’a déjà été. 
On a déjà référencé un élément d’une table, ce qui a provoqué son dimensionnement à 10 par 
Basic, puis on la dimensionne explicitement. 


10 A(5)=123 
20 DIM A(15) 


RUN 
REDIMENSIONNED ARRAY 


RETURN WHITOUT GOSUB (retour sans appel) 


Une instruction RETURN a été exécutée sans qu'il y ait eu une instruction GOSUB exécutée 
auparavant. 


10 GOSUB 100 

30 : 

100 PRINT "sous-programme" 
110 RETURN 


On a oublié END ou STOP après 10 : le sous-programme est exécuté 2 fois. (Il faut ajouter : 20 
STOP). 


STRING TOO LONG (chaîne trop longue) 
Une chaîne devient supérieure à 255 caractères. 


10 X$=X$+"A" 
20 GOTO 10 
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SYNTAX ERROR (erreur de syntaxe) 


TYPE MISMATCH 
On essaie d'attribuer une valeur numérique à une chaîne. 


10 X$ = 123 (il faut faire X$ = «123» ou X = 123) 
10 X = «AZERTY» (il faut faire X$ — «AZERTY ») 


UNDEF'D STATEMENT (no de ligne indéfini) 
Une instruction GOTO ou GOSUB référence une ligne qui n’existe pas. 


UNDEF'’D FUNCTION (fonction indéfinie) 
On appelle une fonction qui n’a pas été définie. 


REDO FROM START (recommencer depuis le début) 


On essaie d'entrer une chaîne dans une instruction INPUT alors que celle-ci attend une valeur 
numérique. 


#77 | INPUT attend 


10 INPUT "Nombre? ";X une valeur 
numérique 


RUN 


Nombre? DUPONT 
REDO FROM START? 1234 Fr 





EXTRA IGNORED 
On essaie d'introduire une donnée de plus que prévu. 


10 INPUT "Mois,Annee? !";MOIS,AN 
RUN Te 
INPUT attend 


Mois,Annee? 13,12,45 r4 2 valeurs seulement 


45 est ignore 


16 INPUT "Rue? ";RUES$ 


RUN D 


Rue? 11,rue xxxxxx 





Seul 11 est accepté (ne pas entrer la virgule) 
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ANNEXE 4 
SAUVEGARDE DES PROGRAMMES 
SUR CASSEFLE 


La prise magnéto est à 7 broches: 

— 3 pour l’enregistrement/lecture 

— 2 pour la commande moteur du magnéto 
— 2 pour la HI-FI 


Seules les 3 premières broches sont indispensables. Mais il faut alors commander soi-même le 
magnétophone. 


Avec le magnétophone utilisé (Thomson), nous n'avons pas eu de problème, le réglage du 
niveau n’est pas critique. Le cordon doit être court et blindé 












Commande 
moteur 








ARRIÈRE 
ORIC 
Sortie Entrée 
Sauvegarde : re 
rapide 
(2400) Lampe rouge 


témoin 


- APPUYER SUR ‘RECORD 
- CSAVE "PROG" #7 


ou 
(1 u lent 
CSAVE "PROG",S—, do 


La lampe témoin du magnétophone doit s’allumer. 


Lecture : 
- CLOAD "PROG" 


ou 
CLOAD "PROG",S Donne le 
premier programme 


RO An a $s A rencontré 
- APPUYER SUR PLAY 
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ANNEXE 5 
CARACTÈRES DE CONTRÔLE 


Clavier: 
<CTRLT> Clavier en mode majuscule (CAPS) ou minuscules (BASCULE) 
<CTRL P> Imprimante 


<CTRL F> Clavier muet ou sonore (BASCULE) - CHRS (6) 
<CTRL D> Double hauteur 


<CTRL Q> Curseur présent ou absent (BASCULE) 


Ecran: 

<CTRL J> Saut de ligne (CHRS (10)) 
<CTRL L> Effacement écran 

<CTRL M> Retour chariot 
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ANNEXE 6 


CARACTÈRES SPÉCIAUX 


Exemple : PRINT ” ”; CHR$ (27); «B»; «VERT » 


CHR$ (27) + 


FOREGROUND NOIR 
ROUGE 





VERT 





sieste sense ss 
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JAUNE 





BLEU 





VIOLET 
BLEU CLAIR 








BLANC 
RETOUR EN MODE NORMAL 





ACCES AUX CARACTERES ALTERNES 
HAUTEUR DOUBLE FIXE 





HAUTEUR NORMALE CLIGNOTANT 


HAUTEUR DOUBLE CLIGNOTANT 





BACKGROUND NOIR 
ROUGE 
VERT 
JAUNE 





BLEU 
VIOLET 
BLEU CLAIR 
BLANC 


ANNEXE 7 
TABÈE DES CODES ASCII 











DIN BOR -OQ 


ni ii 
VO 0 -J ON O1. PB © ND m © © 


20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 


ec 
Ac 
Bc 
Cc 
Dc 
Ec 
Fc 
Gc 
Hc 
lc 
Je 
Kc 
Le 
Mc 
Nc 
Oc 
Pc 
Qc 
Re 
Sc 
Te 
Uc 
Ve 
Wc 
Xc 
Yc 
Zc 
[ce 
/c 


-C 


(BEL) 
(BS) 
(HT) 
(LF) 


(CR) 


(ESC) 





32 
33 
34 
35 
36 
37 


39 
40 
al 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 


SPACE 
! 


sa 


Re. 


É— 


© © © JO O1 PB © ND © 


SV I A 





64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 


TR TNKXEL<CNVOTOZETAR=TIONMONWEE 


96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 |} 

126 - 

127 DEL 
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ORIC-1 pour tous 


Apprenez l'ORIC-1 — L'“ORIC-1 pour tous” en main, placez-vous devant votre machine etcommencez 
à écrire quelques instructions. 

Très vite, vous assimilerez les notions fondamentales de la programmation : variables, tests, 
boucles. 

Vous pourrez alors aborder la “magie” de l'ORIC, les graphiques et les sons, grâce aux nombreux 
exemples illustrés et aux programmes directement commentés. | 

Sur ces bases, il vous sera aisé d'approfondir vos connaissances et d'écrire vos propres 
programmes (gestion, enseignement, jeux...). 
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